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Prefacio 


El  propósito  de  este  libro  es  la  implementación  de  métodos  numéricos  básicos  usando  la  hoja  electrónica  de  LibreOf- 
fice  (ver  apéndice  A).  Por  supuesto,  también  se  puede  usar  con  Cale  de  OpenOffice  y,  con  algunos  cambios  pequeños, 
se  puede  usar  con  VBA  Excel.  También  se  hace  implementaciones  con  wxMaxima  y  a  veces  con  Wolfram  Mathemat- 
ica.  El  curso  esta  orientado  a  estudiantes  con  poco  o  casi  ningún  conocimiento  de  programación.  Usar  la  hoja  elec¬ 
trónica  es  ventajoso  pues  permite  tener  los  datos  en  un  ambiente  natural  y  conocido  y  aplicar  métodos  numéricos  con 
una  macro  programando  en  un  lenguaje  sencillo,  natural  y  muy  amigable  (lo  cual  no  siempre  es  bueno).  Sin  embargo, 
estas  hojas  electrónicas  tienen  sus  limitaciones  y,  en  algún  momento  se  debe  pasar  a  usar  software  simbólico,  digamos 
wxMaxima  u  Octave.  También  se  podría  usar  software  privativo  como  MatLab  o  Mathematica  pero  eso  conlleva  el 
problema  de  las  licencias.  En  este  libro  se  expone  la  teoría,  a  veces  con  justificaciones  teóricas,  se  presentan  varios 
ejemplos  y  al  final  del  cada  capítulo,  se  dedica  tiempo  a  los  algoritmos  y  las  implementaciones. 


W.  Mora. 


Cartago,  Costa  Rica 
Julio,  2010. 
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ARITMETICA  DEL 
COMPUTADOR  Y  ERRORES 


l.l 


Introducción 


Hay  varias  fuentes  de  error  en  los  cálculos,  aquí  nos  interesa  los  errores  de  truncación  inicial  y  errores  de  redondeo. 
Los  cálculos  numéricos  son  llevados  a  cabo  con  un  número  finito  de  dígitos  aunque  la  mayoría  de  números  tengan  un 
número  infinito  de  dígitos.  Cuando  los  números  son  muy  grandes  o  muy  pequeños  se  representan  con  punto  flotante, 
por  ejemplo 


x  —  p  x  10'7 


donde  p  es  un  número  cercano  a  1  y  q  es  un  entero;  por  ejemplo  0.00147  =  0.147  x  10  2. 

Cuando  contamos  el  número  de  dígitos  en  un  valor  numérico,  las  cifras  significativas  son  los  dígitos  usados  para 
expresar  el  número:  1,2, 3, 4, 5, 6, 7, 8  y  9.  El  cero  es  también  signicativo,  excepto  cuando  es  usado  para  para  fijar  el 
punto  decimal  o  para  llenar  los  lugares  de  dígitos  desconocidos  o  descartados.  Por  ejemplo,  0.147  y  3.23  tienen  tres 
cifras  significativas  mientras  que  0.000207  =  0.207  x  10~3  tiene  tres  cifras  significativas. 

Decimales  correctos  y  dígitos  significativos  en  una  aproximación.  Si  p  es  una  aproximación  de  p  (digamos  que 
con  más  de  k  decimales)  tal  que  | p  —  p\  no  excede  0.5  x  10~k,  decimos  que  p  tiene  k  decimales  correctos,  es  decir,  k  es 
el  natural  más  grande  tal  que  \p  —  p  |  <  0.5  x  10~k. 


^ - 

Por  ejemplo,  si  p  =  0.001234  y  p  —  0.001234  ±  0.000004,  entonces  \p  —  p\  <  0.5  x  10”5  (pero  \p  —  p\  ^  0.5  x  10— 6 ) 
así  que  p  tiene  5  decimales  correctos.  En  efecto,  0.001234  +  0.000004  =  0.001238  y  0.001234  —  0.000004  =  0.00123 


Si  p  tiene  k  decimales  correctos,  los  dígitos  en  p  que  ocupan  posiciones  donde  "la  unidad"  es  >  10  k  se  llaman 
dígitos  significativos  (es  decir,  los  ceros  iniciales  no  cuentan). 


Por  ejemplo,  si  p  =  0.001234  aproxima  p  con  5  decimales  correctos,  entonces  p  tiene  tres  dígitos  significativos  pues 
0.001,  0.0002,  0.00003  son  >  10"5  pero  0.000004  ?  1CT5. 


Si  sabemos  que  p  =  1.5756457865  es  una  aproximación  de  un  número  desconocido  p  y  que  p  —  p  <  0.000000005, 
entonces  al  menos  sabemos  que  |  p  —  p  |  <  0.5  x  1 0  7  (pero  no  sabemos  si  |  p  —  p  \  <  0.5  x  10~8)  con  lo  que  p  tiene 
como  mínimo,  7  decimales  correctos. 


Error  absoluto  y  error  realtivo.  Sea  p  es  una  aproximación  de  p,  entonces, 
9\p-p  \  es  el  error  absoluto  de  la  aproximación, 

\p  —  p\ 

9  — j — ¡ — ,  p  y=0;  es  el  error  relativo  de  la  aproximación. 


El  error  relativo  nos  da  un  porcentaje  del  error  (si  lo  multiplicamos  por  100).  En  general,  el  error  relativo  es  más 
significativo  que  el  error  absoluto  si  tratamos  con  números  muy  pequeños  o  números  muy  grandes. 


Error  relativo  y  error  absoluto  para  diferentes  valores. 


p 

P 

Error  absoluto 

Error  relativo  (%) 

0.000012 

0.000009 

0.000003 

25% 

4.5  x  10-7 

6.0  x  lo"1 

4.4994  x  10-7 

99.98667% 

10000000 

1000000 

9000000 

90% 

0.123456 

0.1234 

0.000056 

0.0453603% 

Para  determinar  el  error  absoluto  y  el  error  relativo,  deberíamos  conocer  el  valor  exacto  y  el  valor  aproximado.  En 
la  práctica  de  los  métodos  numéricos,  no  conocemos  a  priori  el  valor  exacto  que  estamos  buscando  pero  si  algunas 
aproximaciones.  A  veces  tenemos  una  aproximación  del  error  absoluto  o  a  veces  solo  unas  cuantas  aproximaciones; 
en  este  último  caso,  la  estimación  del  error  relativo  se  hace  usando  la  mejor  estimación  disponible  de  p. 
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EJERCICIOS  3 


Sea  xq  —  1  y  xn+\  — 


x„  + 


.  Se  sabe  que  lim  xn  —  \fl.  Podemos  aproximar  \/2  usando  esta  sucesión.  La 


estimación  del  error  relativo  se  hace  usando  a  xn+4  como  la  mejor  estimación  del  valor  exacto  (pues  la  sucesión  es  decre¬ 
ciente).  En  la  tabla  que  sigue,  comparamos  la  estimación  del  error  relativo  con  el  error  relativo  exacto. 


x0  =  1 


Error  relativo  estimado  Error  relativo  exacto 

\xn  X„+i|/|x)!+1|  \y/2  %n+ 1 1  /  |V2| 


X\  =  1.5. 

X2  =  1.4166666666666666667 
x3  =  1.4142156862745098039 
x4  =  1.4142135623746899106 
x5  =  1.4142135623730950488 


0.333333 

0.0588235 

0.0017331 

1.5018239652057424  x  1CT6 
1.1277376112344212  x  1CT12 


0.0606602 

0.00173461 

1.5018250929351827  x  1CT6 
1.1276404038266872  x  1CT12 

0. 


Usando  el  error  relativo  estimado  podemos  decir  que  \[7.  ~  1.4142135623730950488  con  error  relativo 
<  1.1277376112344212  x  10~12. 


EJERCICIOS 

1.1  si  p  —  0.001234  y  p  —  0.001234  ±  0.000006,  verifique  que  p  tiene  4  decimales  correctos  y  solo  dos  dígitos 
significativos. 

1.2  Si  se  sabe  que  p  =  4.6565434  aproxima  a  un  número  p  con  p  —  p  <  0.000001,  entonces  como  mínimo 
¿cuántos  decimales  exactos  habría  en  la  aproximación? 

1.3  Encuentre  un  valor  de  tolerancia  S  tal  que  si  |  p  —  p  \  <  ó,  podamos  garantizar  que  p  tendrá  al  menos  tres 
decimales  exactos. 


1.2 


Aritmética  del  computador. 


La  representación  de  un  número  real  en  coma  flotante  requiere  una  base  y  una  precisión  p.  Por  ejemplo,  si  /]  =  1 0 
y  p  =  3  entonces  0.1  se  representa  como  1.00  x  10”1. 

El  número 

±(do  +  -^:  +  -^  +  ■■■■  +  x  Q<d¡<P-i  (í.i) 

se  representa  en  coma  flotante  como 

i  d{).d\d2----dp_\  x  j6e,  0  <  d¡  <  p  (1-2) 

do.didz-.-.dp-i  se  llama  "mantisa"  y  tiene  p  dígitos. 
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En  base  10 


3213  = 


(3_  _2_  _L 

Vio  +  io2  +  io3  +  io4 ) 


x  104 


0.3213  x  104 
0.03213  x  105 


3.125  =  2°±21±-l3 

=  (11.001)2  x  2° 

=  í2+^  +  ¿)x21 

=  (1.1001)2  x24 

=  Q+¿+¿)x22 

=  (0.11001)2  x  22 

Representación  en  el  computador.  Si  en  un  computador  los  números  reales  son  representados  en  base  2,  estos 
números  se  pueden  almacenar  como  una  sucesión  de  bits.  Por  ejemplo  3.125  =  1.1001  x  21  se  almacena  en  64  bits 
como 


0  I  10000000000  I 1100100000000000000000000000000000000000000000000001  (1.3) 

Signo  Exponente,  11  bits  Mantisa,  52  bits 

Cuente  con  15  decimales.  Para  un  número  representado  en  64  bits,  hay  11  bits  para  el  exponente  (±308  en  base 
10)  y  52  bits  para  la  mantisa,  esto  nos  da  entre  15  y  17  dígitos  decimales  de  precisión.  em¡„  y  emax  indican  el  expo¬ 
nente  mínimo  y  el  exponente  máximo. 

Cuando  usamos  la  aritmética  del  computador,  un  número  real  se  representa  en  doble  precisión  (double)  con  15  deci¬ 
males. 

La  comparación  debe  ser  sencilla.  Aunque  los  exponentes  pueden  ser  negativos,  se  introduce  un  sesgo  de  tal 
manera  que  siempre  queden  como  números  mayores  o  iguales  a  cero  (así,  el  exponente  negativo  más  pequeño 
pasa  a  ser  cero  y  los  otros  exponentes  pasan  a  ser  positivos).  Esto  se  hace  con  el  propósito  de  que  la  compara¬ 
ción  de  los  números  sea  sencilla.  En  64  bits  el  sesgo  es  1023,  Esta  es  la  razón  por  la  que  en  (1.3)  el  exponente  es 
(10000000000)2-  1023  ±1. 

Cómo  lograr  la  unicidad.  La  representación  en  coma  flotante  no  es  única.  Por  ejemplo,  0.1  se  puede  representar 
como  0.01  x  101  o  como  1.00  x  1 0  1 .  Si  en  (1.2)  pedimos  que  do  i=  0,  la  representación  se  dice  normalizada.  La  repre¬ 
sentación  de  0.1  como  1.00  X  1 0 “  1  es  la  representación  normalizada. 

La  representación  normalizada  resuelve  la  unicidad,  pero  hay  un  problema  con  el  cero.  Esto  se  resuelve  con  una 
convención  para  representarlo:  1.0  x  ec'mn  “ 1 .  Esto  nos  resta  un  exponente  en  la  representación  de  los  números  pues 
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em¡n  —  1  se  reserva  para  el  cero. 

Los  números  que  podemos  representar.  En  la  representación  normalizada  en  64  bits,  se  sobrentiende  que  do  =  1, 
lo  que  nos  deja  53  bits  para  la  mantisa. 


X  =  (-iyi.b1b2-.b52  X  2e  con  -  1022  <e<  1023 


El  valor  más  grande  sería  1.11. ..11  x  21023  es  1.79  x  10308  y  el  valor  (normal* 1)  más  pequeño  sería  2.22...  x  10  308. 

Excepciones.  Si  los  cálculos  exceden  el  máximo  valor  representable  caemos  en  un  estado  de  "sobreflujo"  (overflow). 
En  el  caso  del  mínimo  valor  caemos  en  un  estado  de  "subflujo"  (underflow).  En  el  estándar  IEEE754,  se  reservan  al¬ 
gunos  patrones  de  bits  para  "  excepciones".  Hay  un  patrón  de  bits  para  números  que  exceden  el  máximo  número 
representable:  Inf,  — Inf,  NaN  (not  a  number).  Por  ejemplo,  1./0.  produce  Inf .  Si  un  cero  es  producido  por  un 
subflujo  debido  a  negativos  muy  pequeños,  se  produce  —0  y  l./(— 0.)  produce  —  Inf.  NaN  es  producido  por  cosas 
tales  como  0./0.,  \J—2  o  Inf  —  Inf. 

Redondeo.  Muchos  números  racionales  tienen  un  cantidad  infinita  de  decimales  en  su  representación  en  base  10  y 
en  base  2.  Por  ejemplo  1/3  =  0.3333333... .  Esto  también  sucede  en  la  representación  en  base  2.  Por  ejemplo. 


0.2  =  (0.00110011001100110...)2. 


Se  debe  hacer  un  corte  para  representar  estos  números  en  el  computador.  Si  rd(x')  es  la  representación  de  x  (por 
redondeo  simétrico)  en  doble  precisión,  entonces 


<  2“52  ^  0.5  x  1(T15 


1.3 


Cancelación 


La  cancelación  ocurre  cuando  se  hace  sustracción  de  dos  números  muy  cercanos.  Cuando  se  forma  la  resta  a  —  b,  se 
representan  con  el  mismo  exponente  q  y  algunos  dígitos  significativos  en  la  mantisa  son  cancelados  y  al  normalizar 
se  mueven  dígitos  a  la  izquierda  y  se  disminuye  el  exponente.  Al  final  de  la  mantisa  aparecen  ceros  inútiles. 


1En  aritmética  de  punto  flotante,  los  números  que  son  más  pequeños  que  el  más  pequeño  número  'normal'  que  se  puede  representar,  se  llaman 
"subnormales".  Los  números  subnormales  se  introducen  para  preservar  la  importante  propiedad  x  =  y  •<=>•  x  —  y  =  0.  Cuando  se  alcanza  el 
mínimo  normal,  la  mantisa  se  va  rellenando  con  ceros  permitiendo  la  representación  de  números  más  pequeños.  El  subnormal  mínimo  sería 
4.9  x  1CT324. 
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Por  ejemplo,  usando  aritmética  con  diez  decimales,  si  a  —  y/9876  =  9.937806599  x  101  y  b  =  y/9875  —  9.937303457  x 
101,  entonces  a  —  b  =  0.000503142  x  101.  Normalizando  se  obtiene. 


V9876  -  v/9875  =  5.031420000  x  10"3 

y  perdimos  dígitos  significativos.  Se  puede  arreglar  el  problema  racionalizando: 


y/a  —  \fb 


a  —  b 
y/a  +  yfb 


esto  cambia  la  resta  (de  números  cercanos)  \/9876  —  \/9875  por  la  suma  \/9876  +  \/9875  y  la  resta  9876  —  9875  no 
presenta  problemas. 


^9876  -  y/98 75  =  ^£6_9875^  =  5  .031418679  x  io~3. 
y/9876  +  y/9875 


Es  usual  usar  algunos  trucos  para  minimizar  este  fenómeno  de  cancelación. 


(a.)  Cambiar  y/a  —  y/b  por  - 7= 

F  y/d+y/b 


(b.)  Cambiar  senrt 


sen  b  por  2  eos 


a  —  b 


sen 


(c.)  Cambiar  logfl  —  log b  por  log (a/b) 


(d.)  Si  /  es  suficientemente  suave  y  h  pequeño,  podemos  cambiar  y  —  f(x  +  h)  —  f(x)  por  la  expansión  de  Taylor 


y  —  f'(x)h  +  0.5 f"(x)h2  +  ... 


Los  términos  en  esta  serie  decrecen  rápidamente  si  h  es  suficientemente  pequeño,  así  que  el  fenómeno  de 
cancelación  deja  de  ser  un  problema. 


A  veces,  quince  dígitos  no  bastan.  Cuando  tratamos  con  números  de  máquina,  hay  un  error  que  se  va  propa¬ 
gando.  Esta  propagación  del  error  es,  en  algunos  casos,  muy  dañina.  A  veces  el  daño  es  producto  del  fenómeno  de 
cancelación,  al  restar  números  parecidos  y  muy  pequeños  y  a  veces  es  por  problemas  de  inestabilidad  del  algoritmo  en 
curso.  Algunos  cálculos  podemos  mejorarlos  aumentando  la  precisión,  como  se  muestra  en  los  ejemplos  que  siguen. 
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Consideremos  la  cuadrática  P(x)  —  ax 2  +  bx  +  c  donde  a  =  94906265.625,  b  —  —189812534  ye  —  94906268.375. 
Usando  Mathematica  8  con  la  aritmética  de  la  máquina  se  obtiene 


—  b  +  \/b2  —  4  ac 

x2  = - ^ - =  1.0000000144879793 

2  a 

Pero  P(l. 0000000144879793)  =  —2.98023  x  10”8!.  Mmmmmm,  aquí  los  números  que  son  cercanos  son  b2  y  Aac  y  no 
es  de  mucha  utilidad  racionalizar.  Todavía  nos  queda  la  opción  de  trabajar  con  más  decimales.  En  Mathematica  8 
aumentamos  la  precisión,  con  el  código 

— b  +  Vb2  —  4  ac 

SetPrecision  [ - — - ,16], 

y  nos  devuelve  x2  —  1.000000028975958  y  ahora,  al  evaluar  nos  devuelve  P(  1.000000028975958)  =  0. 

El  comando  NSolve[a*xA2  +  b*x  +  c  ==  0,  x]  devuelve  también  x2  —  1.0000000144879793,  pero  también  pode¬ 
mos  aumentar  la  precisión  con  el  código  (requiere  pasar  a  'racionales'  a,  b  y  c). 


1  a  =  Rationalize [ 94906265 . 625] ; 

2  b  =  Rationalize [-189812534] ; 

3  c  =  Rationalize [ 94906268 . 375] ; 

4  NSolve[a*xA2  +  b*x  +  c  ==  0,  x,  WorkingPrecision  ->  15], 


y  obtenemos  x2  =  1.000000028975958 


^ - 

Usando  la  precisión  de  la  máquina,  eos (0.00001)  =  0.99999999995.  Usando  24  dígitos  de  precisión, 
cos(0.00001)  =  0.99999999994999999586298. 

En  Mathematica  este  cálculo  se  hace  con  SetPrecision  [Cos  [0 .00001] ,  24] 

En  WxMáxima  este  cálculo  se  hace  con  block  ( [fpprec:24]  ,bfloat  (cos  (0 . 00001) )  )  ; 

En  VBA  Excel  se  debe  usar  un  complemento,  por  ejemplo  XNumbers.  Suponiendo  que  el  complemento  está  instalado,  el 
cálculo  se  podría  hacer  desde  una  subrutina  con 

Dim  mp  As  New  Xnumbers 
mp.xCos  ("0.00001",  24) 
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Representación  gráfica  de  f(x)  —  x2/2  +  cos(x)  —  1.  La  función  /  siempre  es  positiva  en  [—0.0001,  0.0001].  Si  hace¬ 
mos  la  representación  gráfica  usando  números  de  máquina  obtenemos  un  gráfico  inestable. 


Si  aumentamos  la  precisión  a  24  dígitos,  la  representación  gráfica  aparece  en  su  forma  correcta. 


-0.0001-0.00005  0.00005  0.0001 


Este  último  gráfico  se  generó  en  Mathematica  6.0  con  el  código 

Plot[xA2/2  +  Cos[x]  -  1,  {x,  -0.0001,  0.0001},  WorkingPrecision  ->  24].  Actualmente  (Mathematica  8) 
controla  automáticamente  estos  problemas  de  redondeo. 


Representación  gráfica  de  f(x)  — 
precisión. 


E 


n—0 


{-l)nx2n 

(277)1 


Aquí  también  los  cálculos  se  ven  afectados  si  trabajamos  con  poca 


Precisión  =  15 


Precisión  =  200 
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Multiprecisión  con  XNumbers  para  Excel.  XNUMBERS  es  un  complemento  que  ofrece  una  gran  colección  de  fun¬ 
ciones  para  Excel,  incluyendo  multiprecisión  (hasta  200  dígitos).  Actualmente  existe  este  complemento  en  versión 
'Excel  97/2000/XP/2003'  y  versión  'Excel2010and2007'.  Las  instru-cciones  y  el  complemento  se  puede  descargar 
(agosto  2012)  desde  http :  //www. thetropicalevents  .  com/Xnumbers60/.  La  fuente  original  de  Xnumbers  (para  Excel 
97/2000/XP/2003)  es  http:  //digilander .  libero .  it/ foxes/. 


1.4 


Propagación  del  Error 


Cuando  un  error  de  redondeo  ha  sido  introducido,  este  se  suma  a  otros  errores  y  se  propaga.  Supongamos  que 
queremos  calcular  el  valor  /(x)  G  IR.  En  el  computador  x  es  aproximado  con  un  número  racional  x,  así  que  x  —  x 
es  el  error  inicial  y  e\  —  f(x)  —  f{x)  es  el  correspondiente  error  propagado.  En  muchos  casos,  en  vez  de  /  se  usa 
una  función  más  simple  f\  (a  menudo  una  expansión  truncada  de  /).  La  diferencia  62  —  f  \  (x)  —  f(x)  es  el  error  de 
truncación.  Luego,  las  operaciones  que  hace  el  computador  son  "seudo-operaciones"  (por  el  redondeo)  por  lo  que  en 
vez  de  f\ (x)  se  obtiene  otro  valor  incorrecto  fi{x) .  La  diferencia  £3  =  /2(x)  —  f\ (x)  se  podría  llamar  el  error  propagado 
por  los  redondeos.  El  error  total  sería 


e  =  /2(*)  -/(*)  =ei  +  e2  +  e3 


La  aritmética  usada  por  el  computador  no  respeta  la  aritmética  ordinaria.  Cada  simple  operación  en  punto  flotante 
casi  siempre  genera  un  error  pequeño  que  se  puede  propagar  en  las  siguientes  operaciones.  Se  puede  minimizar 
los  errores  de  redondeo  incrementando  el  número  de  cifras  significativas  en  el  computador  y  así  el  error  no  será  en 
general  muy  dañino  excepto  en  casos  particulares,  por  ejemplo  en  los  que  se  restan  cantidades  de  signo  opuesto  y 
muy  parecidas  en  valor  absoluto. 


Análisis  del  error  de  propagación.  El  análisis  de  error  es  importante  cuando  se  quiere  investigar  y/ o  garantizar  el 
desempeño  de  los  métodos  numéricos  usados  en  problemas  teóricos  y  prácticos.  Ejemplos  catastróficos  producidos 
por  errores  de  redondeo  se  puede  ver  en  http:  / /mathwor Id.  wolfram.  com/Roundoff Error .  html. 


Sea  p 


Se  acostumbra  escribir 


rd(x)  =  x(l  +  e),  |e|  =  p,  |e|  <  eps 


Para  seguir  adelante  necesitamos  definir  un  modelo  para  la  aritmética  de  la  computadora.  Excepto  por  la  ocurrencia 
de  sobreflujo  o  subflujo,  vamos  a  suponer  en  nuestro  modelo  que  las  operaciones  +,  — ,  ■,  /  producen  un  resultado 
redondeado  que  es  representable  en  el  computador.  Denotamos  con  fl (x  +  y),  fl{x  -  y),...  el  resultado  de  estas  opera¬ 
ciones  (el  resultado  que  produce  la  máquina).  Entonces,  por  ejemplo 

fl(x  ■  y)  —  x  ■  y  (1  +  e),  |e|  <  eps 

Ahora  bien,  nuestro  interés  es  analizar  el  error  en  los  resultados  causados  por  errores  en  los  datos.  Vamos  a  suponer 
que  x(l  +  ex)  y  y(l  +  ev)  son  valores  de  x  e  y  contaminados  con  errores  relativos  ex  y  Ey .  Analicemos  el  error 
relativo  en  cada  operación  •,  +,—,/. 

9  Midtiplicación.  Supongamos  que  ex  y  ey  son  tan  pequeños  que  los  términos  de  orden  dos  e2x,  c2,  ex  ■  ey,...  u 
orden  superior,  puedan  ser  despreciados  (respecto  a  los  e/s ) .  Entonces 


x  (1  +  ex)  ■  y(l  +  ey)  «  x  ■  y(l  +  ex  +  ey) 
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y  por  tanto,  el  error  relativo  £Xy  ~  £x  +  £y 

Así,  en  general,  en  el  producto  los  errores  relativos  de  los  datos  se  suman  en  el  resultado.  Esta  situación  la 
vamos  a  considerar  aceptable. 

9  División.  Si  y  0  entonces,  usando  la  expansión  en  serie  de  1/  (x  +  1), 


X{l+£x)  _  X  2  x  *  ,i  ,  x 

—T. — : - x-  —  —  (1  +  £af)(l  —  £y  +  £y  ~  ■■■)  ~  —  (1  +  £j  ~  £y) 

lj(l+£y)  y  y 

y  entonces  el  error  relativo  £x/y  ~  £x  -  £y  el  cual  es  aceptable, 
d  Suma  y  resta.  Como  x,y  pueden  tener  cualquier  signo,  basta  con  considerar  la  suma. 


X  (1  +  £X)  +  y  (1  +  £y) 


si  x  +  y  7^  0.  Entonces 


X  +y  +  X£x  +  XJ£y 


(*  +  y) 


/  |  X£x+y£y\ 

V  x  +  y  ) 


£X+y  - 


£x  + 


x  +  y 


que  es  nuevamente  una  combinación  lineal  de  los  errores  en  los  datos. 


9  Si  x  e  y  son  de  igual  signo  entonces  0  < - <  1,  luego 

x  +  y 

£x+y  ^  |£x|  +  \£y\ 

que  es  un  resultado  aceptable. 

x  y 

9  Si  x  e  y  son  de  signo  contrarío  entonces  -  y  — - —  pueden  ser  números  arbitrariamente  grandes 

x  I  y  x  “j  y 

cuando  |x  +  y|  es  arbitrariamente  pequeño  comparado  con  |x|  e  |y|.  Y  esto  ocurre  cuando  xey  son  casi 
iguales  en  valor  absoluto,  pero  de  signo  contrario.  Este  fenómeno  es  el  llamado  error  de  cancelación.  Es  un 
talón  de  Aquiles  del  análisis  numérico  y  debe  ser  evitado  siempre  que  sea  posible.  Observe  que  los  efectos 
de  la  "cancelación"  se  pueden  alcanzar  por  la  suma  de  pequeñas  dosis  de  cancelación  en  grandes  cálculos. 


Estabilidad  y  condición  En  los  cálculos  científicos  con  el  computador,  los  datos  de  entrada  pueden  ser  imprecisos. 
Los  errores  en  la  entrada  se  propagan  y  dan  lugar  a  errores  en  la  salida.  También  los  errores  de  redondeo  en  cada 
paso  de  un  cálculo  se  propagan,  provocando  errores  en  el  resultado  final.  Para  muchos  algoritmos,  un  análisis  de  er¬ 
ror  de  redondeo  se  puede  hacer  para  mostrar  que  pequeños  cambios  en  los  datos  de  entrada  solo  provocan  pequeños 
cambios  en  le  resultado  (el  algoritmo  esta  bien  condicionado)  y  de  paso  se  puede  estimar  el  efecto  de  los  errores  de 
redondeo  en  el  resultado  final. 

Aquí  vamos  a  ver  brevemente  como  se  estudia  la  propagación  de  errores  en  el  caso  de  operaciones  aritméticas  en  el 
computador. 

Supongamos  que  X  —  (x1,X2,....x„)  son  los  datos  de  entrada  y  (p(x)  representa  el  conjunto  de  operaciones  (general¬ 
mente  operaciones  racionales).  Sea  (p  es  continuamente  diferenciable  en  un  conjunto  abierto  de  IR"  que  contiene  el 
dato  X.  Para  estudiar  como  los  errores  en  X  afectan  el  resultado  y  —  (p(x)  se  usa  una  expansión  (truncada)  de  Taylor, 
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=  wfx)  Al>  +  A*2 + ••• +  W. W  A'v" 

donde  Ax^,  Ax2,...,Ax„  son  los  errores  individuales  (Ax¡  —  x¡  —  x,).  A  y  es  una  aproximación  de  primer  orden  del 
error  <p(x)  —  (p(x)  y  la  aproximación  de  primer  orden  para  el  error  relativo  sería  — .  Es  conveniente  escribir  esta 

y 

última  expresión  como 


Ay  x\  dtp  Ax\  x\  d(p  Ax2 

y  cp(x)  dxi  x\  ip(x)  3x2  X2 


xi  dd>  ,  ,  Axn 

I - —  (jt)  - 

<p(x)  dxn  '  xn 


X  ■  dó 

Los  números  '  zr~(x)  se  llaman  números  de  condición  del  problema  y  —  ó í x ) .  Si  esto  números,  en  valor  abso- 
<p(x)  3 x¡  r  J  r  ' 

luto,  son  >  1  entonces  magnifican  el  error  y  el  cálculo  podría  volverse  numéricamente  inestable  mientras  que  si  estos 
números  de  condición,  en  valor  absoluto,  son  <  1  entonces  el  error  no  es  magnificado. 

O  En  el  caso  de  sumas  y  restas,  podemos  calcular  una  cota  para  los  errores  absolutos  en  el  resultado: 

y  —  X\  +  X2  + ...  +  xn,  entonces  |Ay|  <  |Axi|  +  |Ax2|  + ...  +  |Ax„[ 


Si  y  —  X\  ±  X2,  los  números  de  condición  son 


Xj  3  y 


(*) 


Xi  +  X2 


.  Este  número  de  condición  es  <  1  si 


y(x)  dx¡ 

los  todos  los  sumandos  x,  tiene  el  mismo  signo,  en  este  caso  el  error  no  es  magnificado.  Pero  si  los  sumandos 
tienen  signos  opuestos  y  son  parecidos  en  valor  absoluto  entonces  el  error  se  magnifica. 


O  En  el  caso  de  productos  o  divisiones,  si  y  —  x1 1  x2  2 . . .  x„  entonces 


AlJ 


y 


< 


\m¡ 


i= i 


A  X; 


Si  y  —  x  1X2 .. .  xn,  los  números  de  condición  son 


*  £<*) 


—  1,  entonces  el  error  no  es  magnificado. 


y(x)  3 x¿ 

®  Si  y  =  /(x),  como  Ay  =  /(x  +  Ax)  —  /(x)  =  Ax  con  f  entre  x  y  x  +  Ax,  entonces  si  |  Ax|  <  e,  tenemos 


Ay  <  máxl/^^le  con  fe  [x  —  e,  x  +  e] 
En  la  práctica  se  usa  sustituir  f  por  una  estimación  (disponible)  de  x. 


En  general,  si  y  =  /(x i,...,xn)  es  diferenciadle  en  un  entorno  abierto  de  x,  entonces 

"  3/ 

3  X; 


Af~Lf¿Axi  y  \Af\£L 

1  =  1  J  1  i=  1 


|A  x¡ 


En  esta  fórmula  se  puede  usar  el  máximo  absoluto  de  las  derivadas  parciales,  pero  aún  así,  las  cotas  de  error  pueden 
salir  sobreestimadas.  Usando  probabilidades  se  puede  establecer  algo  más  manejable:  Si  los  errores  Ax,  se  ven  como 
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variables  aleatorias  independientes  con  media  cero  y  desviaciones  estándar  e\,  62,  „  entonces  el  error  estándar 

e  para  f(x\,...,xn)  es 


Las  fórmulas  anteriores  nos  dan  un  estimado  del  error  en  ciertos  cálculos,  pero  en  muchos  casos  la  estimación  del 
error  más  bien  depende  del  cuidado  y  la  experiencia  que  ayuda  a  evitar  ciertos  cálculos  de  riesgo. 


EJERCICIOS 

1.4  Consideremos  el  polinomio  P(x)  —  (x  —  2)7 (x  —  3) (x  —  4).  En  forma  extendida,  P(x)  —  —1536  +  6272 x  — 
11328x2  +  11872x3  —  7952x4  +  3528x5  —  1036x6  +  194x7  —  21x8  +  x9.  Evaluar  el  polinomio,  en  sus  dos  formas,  en 
x  =  1.99 

1.5  Supongamos  que  la  ecuación  cuadrática  ax2  +  bx  +  c  —  0  tiene  dos  soluciones  distintas, 

—  b  +  Vb2  —  4  ac 


—b  —  \Jb2  —  Aac 


o  alternativamente. 


-2c 

b  +  \Jb2  —  4ac 
-2c 

b  —  \Jb2  —  4«c 


Si  b  >  0  evitamos  la  cancelación  tomando  X2  y  x  ¡ 
Si  b  <  0  evitamos  la  cancelación  tomando  X  |  y  x2 


Usando  los  valores  a  =  1,  b  =  1  y  c  =  10  l:,k  =  1,2,3,...,  calcule  las  raíces  de  la  cuadrática  de  dos  maneras  distintas, 
para  investigar  el  error  en  la  salida  del  computador  debido  al  fenómeno  de  cancelación. 


1.6 


1.7 


2N 


Considere  la  suma  Si  =  (— l)n - - 

’  n  +  1 


n= 1 

N  2n-l  H  2  n 


a)  Muestre  que  Si  =  —  - h  - 

^  1  2n  2n  + 1 


n— 1 


n— 1  ' 


N 


b)  Muestre  que  Si  —  - — 7- - — 

4  “í  2n(2n  +  1) 

c)  Calcule  la  suma  usando  las  dos  expresiones  para  Si  considerando  valores 

Ni  1  2 

Considere  las  sumas  S|  —  ^  —  y  S¿  =  ^  — .  Considere  valores  grandes  de 


12=1 


n—N 


grandes  de  N. 

N  y  calcule  las  dos  sumas 


1.8  Considere  /(x)  =  x  —  sen(x).  Obtenga  el  polinomio  de  Taylor  de  orden  7,  alrededor  de  cero,  para  esta  función. 
Considere  valores  pequeños  de  x  y  calcule  con  las  dos  expresiones. 
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1.9  Resuelva  el  sistema 


0.780x  +  0.563 y 
0.457x  +  0.330y 


solución  exacta  x  =  1,  y  —  1. 


0.217 

0.127 


redondeando  siempre  a  tres  decimales.  Comparar  con  la 


Versión  más  reciente  (y  actualizaciones)  de  este  libro: 
http://www.tec-digital.itcr.ac.cr/revistamatematica/Libros/ 
http://dl.dropbox.eom/u/57684129/revistamatematica/Libros/index.html 


INTERPOLACION  POLINOMIAL. 
ASPECTOS  PRÁCTICOS 


2.1 


Introducción 


La  interpolación  polinomial  es  la  base  de  muchos  tipos  de  integración  numérica  y  tiene  otras  aplicaciones  teóricas.  En 
la  práctica  a  menudo  tenemos  una  tabla  de  datos  {  (xj,y¡),  i  —  0, 1,2 obtenida  por  muestreo  o  experimentación. 
Suponemos  que  los  datos  corresponden  a  los  valores  de  una  función  /  desconocida  (a  veces  es  conocida,  pero  quer¬ 
emos  cambiarla  por  una  función  más  sencilla  de  calcular).  El  "ajuste  de  curvas"  trata  el  problema  de  construir  una 
función  que  aproxime  muy  bien  estos  datos  (es  decir,  a  /).  Un  caso  particular  de  ajuste  de  curvas  es  la  interpolación 
polinomial:  En  este  caso  se  construye  un  polinomio  P(x )  que  pase  por  los  puntos  de  la  tabla. 

La  interpolación  polinomial  consiste  en  estimar  f(x*)  con  P(x*)  si  x*  no  está  en  la  tabla  pero  se  puede  ubicar 
entre  estos  valores.  Una  situación  típica  se  muestra  en  el  siguiente  ejemplo  en  el  que  tenemos  datos  que  relacionan 
temperatura  con  el  segundo  coeficiente  virial.2 
En  el  mundillo  del  ajuste  de  curvas  hay  varias  alternativas, 

9  Usar  un  polinomio  interpolante.  Es  el  método  de  propósito  general  más  usado. 

9  Usar  trazadores  (splines).  Estas  son  funciones  polinomiales  a  trozos. 

9  Usar  Polinomios  trigonométricos  en  [0, 2  n] .  Son  la  elección  natural  cuando  la  función  /  es  periódica  de  periodo 
2  n. 

9  Usar  sumas  exponenciales.  Se  usan  si  conocemos  que  /  presenta  decaimiento  exponencial  conforme  x  — >  oo. 
9  Si  los  datos  son  aproximados  ("datos  experimentales"),  lo  conveniente  sería  usar  Mínimos  Cuadrados 

Aquí  solo  vamos  a  tratar  con  interpolación  polinomial  y  trazadores  cúbicos. 


2 

El  comportamiento  de  gases  no  ideales  se  describe  a  menudo  con  la  ecuación  virial  de  estado 


PV_  B  C 
RT  ~  +  V  +  V1  + 


donde  P  es  la  presión,  V  el  volumen  molar  del  gas,  T  es  la  temperatura  Kelvin  y  R  es  la  constante  de  gas  ideal.  Los  coeficientes  B  =  B(T ),  C  = 
C(T),...  son  el  segundo  y  tercer  coeficiente  virial,  respectivamente.  En  la  práctica  se  usa  la  serie  truncada 


PV 

RT 


1  + 


B 

V 


Considere  los  siguientes  datos  para  el  nitrógeno  (N2): 


T{K)  100 

200 

300 

400 

450 

500 

600 

B(cm3  /mol)  —160 

-35 

-4.2 

9.0 

? 

16.9 

21.3 

100 


donde  T  es  la  temperatura  y  B  es  el  segundo  coeficiente  virial.  50 
¿Cuál  es  el  segundo  coeficiente  virial  a  450  L?.  Para  responder 
la  pregunta,  usando  interpolación  polinomial,  construimos  un 
polinomio  P  que  pase  por  los  seis  puntos  de  la  tabla  (ya  vere¬ 
mos  cómo),  tal  y  como  se  muestra  en  la  figura  (2.1).  Luego,  el 
segundo  coeficiente  virial  a  450 K  es  aproximadamente  P(450)  = 

13.5  cm3 /mol. 


Figura  2.1  Polinomio  interpolante 


Consideremos  la  función  /  definida  por 


roo  g—t 

í{x)=h  I^dt' con 


-  1  <  X  <  1 


La  integral  que  define  a  /  es  una  integral  no  trivial  (no  se  puede  expresar  en  términos  de  funciones  elementales).  La 


tabla  de  la  izquierda  nos  muestra  algunos  valores  para  /. 


X 

/(*) 

-1 

0.0009788055864607286 

-0.6 

0.0010401386051341144 

-0.2 

0.0011097929435687336 

0 

0.0011482955912753257 

0.2 

0.0011896108201581322 

0.25 

? 

0.6 

0.0012820294923443982 

1. 

0.0013903460525251596 

Podemos  usar  un  polinomio  interpolante  para  interpolar  /( 0.25). 
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1 6  INTERPOLACIÓN  POLINOMIAL.  ASPECTOS  PRÁCTICOS 


2.2 


Interpolación  polinomial. 


Un  problema  de  interpolación  polinomial  se  especifica  como  sigue:  dados  n  +  1  pares  (xo,yo),(xi,yi),-,  (xn,yn), 
siendo  todos  los  x¡'s  distintos,  y  y¡  =  f(x¡)  para  alguna  función  /;  encontrar  un  polinomio  Pn(x)  de  grado  <  n  tal 
que 


Pn(xi)  —  y  i,  i  —  0,l,2,..vn 


(2.1) 


Teorema  2.1  (Polinomio  interpolante). 


Dados  n  +  1  puntos  (xo,yo),  (x\,y{),  ... ,  (x„,y„)  con  x¡  ^  x¡  si  i  ^  j)  existe  un  único  polinomio  Pn  (x)  de  grado  <  n 
tal  que  P(x¿)  —  y¡  Vz  =  0,l,...,n 


A  Pn{x)  se  le  llama  polinomio  interpolante,  a  cada  x¡  le  decimos  nodo  de  interpolación  y  a  cada  y,-  imlor  interpolado. 


O  El  problema  tiene  solución  única,  es  decir  hay  un  único 
polinomio  que  satisface  (2.1). 

®  No  se  requiere  que  los  datos  estén  igualmente  espaciados 
ni  en  algún  orden  en  particular. 

®  Si  /  es  un  polinomio  de  grado  k  <  n,  el  polinomio  inter¬ 
polante  de  /  en  n  +  1  puntos  coincide  con  /. 

9  El  grado  de  Pn  es  <  n  pues  podría  pasar,  por  ejemplo,  que 
tres  puntos  estén  sobre  una  recta  y  así  el  polinomio  tendría 
grado  cero  o  grado  uno 


Figura  2.2  Polinomio  interpolante. 


Definición  2.1 


Si  de  una  función  /  conocemos  los  puntos  (*o,yo),  (xi'3/i)/  —  i{xn,yn),  con  los  x¡'s  todos  distintos,  ysiA  — 
{xQ,xi,...,xn}  y  x*  i  A  pero  mínA  <  x*  <  máxA;  entonces  interpolar  f  en  x*  con  un  subconjunto  de  k  +  1  no¬ 
dos  de  A  consiste  en  calcular  t(x*)  donde  P/f  es  el  polinomio  interpolante  obtenido  con  un  subconjunto  de  k  +  1 
nodos  alrededor  de  x* . 


El  polinomio  interpolante  es  único,  es  decir,  solo  hay  un  polinomio  que  pasa  por  estos  n  +  1  puntos.  Aquí  vamos  a 
ver  cuatro  maneras  de  calcular  este  polinomio  interpolante:  La  forma  de  Lagrange  del  polinomio  interpolante,  la  fór¬ 
mula  baricéntrica  de  Lagrange,  la  modificada  de  Lagrange  y  la  forma  de  Newton  del  polinomio  interpolante  (método 
de  diferencias  divididas  de  Newton).  Los  cuatro  métodos  dan  el  mismo  polinomio  (aunque  con  diferente  aspecto),  y 
los  cuatro  métodos  son  importantes  porque  de  ellos  se  hacen  otras  derivaciones  teóricas. 
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2.3 


Forma  de  Lagrange  del  polinomio  interpolante. 


Lagrange3  calculó  el  único  polinomio  interpolante  de  manera  explícita:  El  polinomio  P„  (x)  de  grado  <  n  que  pasa 
por  los  n  +  1  puntos  (xo,yo)>  {xn,yn)  (con  x¿  yf  Xj  para  todo  i,j)  es 


Fh(x)  —  yoLno(x^  +  y-[Ln^(x)  +  ...  +  ynLn  ,n(x) 


donde  L„¿-(x) 
Por  ejemplo. 


n 


i= 0 


X  —  X{ 
Xk  -  Xi 


(x  -  X0)  (x  -  Xi)  ■  ■  ■  (x  -  Xfc„1)r>(x  -  Xk+1)  ■  ■  ■  (x  -  Xn) 
(xfc  -  x0)  •  •  •  (xj.  -  xt_1)rv(xfc  -  Xfc+1)  •  •  •  (xk  -  Xn). 


(X-X!)-  (X-X2)---(X~X„) 

(x0  -  Xx)  •  (x0  -  x2)  •  •  •  (x0  -  x„). 

(x  —  Xo)  '  (x  —  X2)  •  •  •  (x  —  x„) 

(xi  —  Xq)  •  (xi  —  X2)  •  •  •  (xi  —  x„). 

(x  —  Xq)  ■  (x  —  X2)  '  (x  —  X4)  •  ■  •  (x  —  X„) 
(x3  -  X0)  ■  (x3  -  X2)  ■  (x3  -  X4)  ■  ■  ■  (x3  -  Xn). 


(x  —  Xq)  •  (x  —  Xi)  •  ■  ■  (x  —  X„_x) 
(x„  -  Xq)  ■  (X„  -  Xx)  ■  ■  ■  (X„  -  X„_x). 


Determine  la  forma  de  Lagrange  polinomio  interpolante  de  grado  <  2  (una  recta  o  una  parábola)  que  pasa  por  tres 
puntos  (0,1),  (1,3),  (2,0). 


Solución: 


F2W  =  yo¿2,o(x)  +yiLi,i(x)  +  1/2  ¿2,2  W 
—  1  ■  L2ro(x)  +  3  ■  ¿24  (x)  +  0  ■  L2/2(x) 

(x  —  l)(x  —  2)  (x  —  0)(x  —  2) 

(0  —  1)(0  —  2)  (1  —  0)(1  —  2) 


Joseph  Louis  Lagrange  (1736-1813)  íue  uno  de  los  más  grandes  matemáticos  de  su  tiempo.  Nació  en  Italia  pero  se  nacionalizó 
,  Francés.  Hizo  grandes  contribuciones  en  todos  los  campos  de  la  matemática  y  también  en  mecánica.  Su  obra  principal  es  la 
I  "Mécanique  analytique"(1788).  En  esta  obra  de  cuatro  volúmenes,  se  ofrece  el  tratamiento  más  completo  de  la  mecánica  clásica 
desde  Newton  y  sirvió  de  base  para  el  desarrollo  de  la  física  matemática  en  el  siglo  XIX. 
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De  una  función  /,  conocemos  la  información  de  la  tabla  que  sigue.  Interpolar  /( 0.35)  usando  un  polinomio 
interpolante  Ps(x)  indicando  la  subtabla  de  datos  que  va  a  usar. 


X 

0 

0.1 

0.2 

0.3 

0.4 

0.5 

0.6 

0.7 

/« 

.3 

.31 

.32 

.33 

.34 

.45 

.46 

.47 

Solución:  Como  se  requiere  un  polinomio  interpolante  P3(x),  se  necesita  una  subtabla  de  cuatro  datos.  Una  opción 
es 


X 

0.2 

0.3 

0.4 

0.5 

f(x) 

0.32 

0.33 

0.34 

0.45 

Si  usamos  la  forma  de  Lagrange  del  polinomio  interpolante, 
entonces 


P3(x)  = 
+ 
+ 
+ 


y  entonces  /( 0.35) 


(x  —  0.3)  (x  —  0.4)  (x  —  0.5) 

(0.2 -0.3)  (0.2 -.4)  (0.2 -0.5) 
(x  —  0.2)  (x  —  0.4)  (x  —  0.5) 

(0.3 -0.2)  (0.3 -0.4)  (0.3 -0.5) 
(x  —  0.2)  (x  —  0.3)  (x  —  0.5) 

(0.4 -0.2)  (0.4 -0.3)  (0.4 -0.5) 
(x  —  0.2)  (x  —  0.3)  (x  —  0.4) 

(0.5 -0.2)  (0.5 -0.3)  (0.5 -0.4) 
P3  (0.35)  =0.32875. 


0.32- 

0.33- 

0.34- 

0.45- 


Ejemplo  2.5  (Interpolación  lineal.  Fórmula  de  un  solo  punto  para  una  recta). 


Verifique  que  el  polinomio  interpolante  de  grado  <  1  que  pasa  por  (xo,i/o)/  (u  ,l/i )  es> 

Pi(x)  =  m(x-xi)+i/i  =  (x-xx)  +yi 

Solución:  Usando  la  fórmula  de  Lagrange, 


Pi(x) 


y0L„/0(x)  +  yiLlhl{x) 

(x  —  Xi)  (x  —  Xo) 

(x0-xi)  +3/l  (xi  x0)  * 


Simplificando, 
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En  la  tabla  que  sigue  aparece  las  estadísticas  de  un  curso  con  la  cantidad  de  estudiantes  en  cada  rango  de  notas. 


Rango  de  Notas 

30-40 

40-50 

50-60 

60-70 

70-80 

N°  Estudiantes 

35 

48 

70 

40 

22 

Estime  la  cantidad  de  estudiantes  con  nota  menor  o  igual  a  55. 


Solución:  Para  hacer  la  estimación  necesitamos  una  tabla  con  las  frecuencias  acumuladas. 


x< 

40 

50 

60 

70 

80 

y 

35 

83 

153 

193 

215 

Ahora  calculamos  el  polinomio  interpolante. 


P4(x) 


o' 

1 

O 

00 

1 

EC 

x  —  60)  (x  —  50) 

48001 

83(80  -x)(x-  70) 

(x  —  60)  (x  —  40) 

60000 

153(x  -  80)  (x  -  70)  (x  -  50)  (x  -  40) 

4001 

193(80  -x)(x-  60 

?(x-50)(x-40) 

oo“ 

^0^0 

1 

o 

1 

CO 

00 

(x  —  50)  (x  —  40) 

48000 


Así,  la  cantidad  de  estudiantes  con  nota  menor  o  igual  a  55  es  aproximadamente  Pi(x)  =  120. 


Ejemplo  2.7  (Nodos  igualmente  espaciados-fenómeno  de  Runge). 


En  general,  el  polinomio  interpolante  se  podría  ver  afectado  por  el  conjunto  {xo,...,x„}  y  por  la  función  /. 

1 

Este  ejemplo  es  algo  extremo  y  es  conocido  como  'fenómeno  de  Runge';  si  /(x)  —  - —  2,  el  polinomio  interpolante 

presenta  problemas  de  convergencia  si  tomamos  los  x,-'s  igualmente  espaciados  en  [—1,1],  es  decir  si  x¡  —  —  1  +  i  ■  h 
con  h  —  1/n. 


n  =  10  n  =  15 


Observe  que  la  interpolación  se  ve  afectado  hacia  los  extremos  del  intervalo  no  asi  en  el  centro;  esto  parece  ser  una 
tendencia  general. 
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Si  se  puede  escoger  los  nodos,  una  buena  opción  de  ajuste  se  obtiene  con  nodos  de  Tchebychev 


4 


Ejemplo  2.8  (Nodos  de  Tchebychev). 


Si  hay  posibilidad  de  escoger  los  puntos  de  interpolación,  en  el  intervalo  [—1,1],  la  elección  podría  ser  los  nodos 


/  2z  + 1 

X¡  =  COS  - - -  Tí 

\2n+2 

conocidos  como  nodos  de  Tchebychev.  A  diferencia  de  lo  que  podría  suceder  con  nodos  igualmente  espaciados,  con 
estos  nodos  el  polinomio  interpolante  ajusta  bien  si  /  G  C1]— 1,1]. 

(h  —  —  3.) 

Para  un  intervalo  [a,b]  es  válido  hacer  el  cambio  de  variable  u  — - — - -  +  b  que  mapea  el  intervalo  [—1,1] 

en  el  intervalo  [a,  b] .  En  este  caso,  los  nodos  serían 

( b-a)(xi  -  1) 


llj  = 


2  +  b 


2i  +  l 

con  Xi  —  eos  |  ^  +  2  71 


Como  se  prueba  más  adelante,  en  este  caso,  si  x*  G  [a,  b  , 

M  si  |/^+1^(x)|<M  para  todo  xG  [a,b]. 


|/(x*)-P„(x*)|  < 


(ji  Ti)!  2» 


2.4 


Forma  modificada  y  forma  baricéntrica  de  Lagrange. 


La  forma  de  Lagrange  del  polinomio  interpolante  es  atractiva  para  propósitos  teóricos.  Sin  embargo  se  puede  re¬ 
escribir  en  una  forma  que  se  vuelva  eficiente  para  el  cálculo  computacional  además  de  ser  numéricamente  mucho 
más  estable  (ver  [2]).  La  forma  modificada  y  la  forma  baricéntrica  de  Lagrange  son  útiles  cuando  queremos  interpolar 
una  función  en  todo  un  intervalo  con  un  con  un  polinomio  interpolante. 


4 


Pafnuti  Lvóvich  Tchebychev  (1821  -  1894).  El  más  prominente  miembro  de  la  escuela  de  matemáticas  de  St.  Petersburg.  Hizo 
investigaciones  en  Mecanismos,  Teoría  de  la  Aproximación  de  Funciones,  Teoría  de  los  Números,  Teoría  de  Probabilidades  y 
Teoría  de  Integración.  Sin  embargo  escribió  acerca  de  muchos  otros  temas:  formas  cuadráticas,  construcción  de  mapas,  cálculo 
geométrico  de  volúmenes,  etc. 
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n 

Supongamos  que  tenemos  n  + 1  nodos  distintos  xq,X\,...,x„.  Sea  ( .t )  =  ]^[ (x  —  x¿)  es  decir, 

i= 0 


f'(x)  =  (x  —  Xq)(x  —  Xi)  ••  •  (x  —  Xn) 


Definimos  los  pesos  baricéntricos  como 


cu. 


n 


¡- o  Xk  Xi 


k  =  0,1  ,...,n. 


Es  decir. 


11  11  1 

cvk  =  -  ■  -  ■■■  -  ■  -  ■■■  - . 

xk  Xq  Xk  X\  Xk  Xk_-[  Xk  Xk_^_-[  Xk  Xfi 


Ahora  podemos  definir  la  "forma  modificada"  y  "forma  baricéntrica"  de  Lagrange: 


Definición  2.2 


La  forma  modificada  del  polinomio  de  Lagrange  se  escribe  como 

JL  cu. 

P.(:)=<WE^y|  (2-2) 

]=0  1 


Definición  2.3 


La  forma  baricéntrica  del  polinomio  de  Lagrange  se  escribe 


si  x  —  xir 


Pn(x)  < 


CU, 


^x-xkyk 
k= 0  k  ■  , 

— - ,  SI  X  Xi 

y  wk 

tox  ~  Xk 


(2.3) 
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Consideremos  la  siguiente  tabla  de  datos. 


X 

/(*) 

0.2 

3.2 

0.3 

3.3 

0.4 

3.4 

0.5 

4.5 

Calcule  la  forma  modificada  y  la  forma  baricéntrica  de  Lagrange  e  interpole  con  ambos  polinomios,  /( 0.35). 
Solución:  Primero  calculamos  i{x)  —  (x  —  0.2) (jc  —  0.3)  (x  —  0.4)  (jc  —  0.5).  Ahora,  los  pesos  baricéntricos. 


1 


= 


OT  = 


Oh  — 


U,  = 


0.2  -  0.3 

0.2  -  0.4 

0.2 -0.5 

1 

1 

1 

0.3 -0.2 

0.3  -  0.4 

0.3 -0.5 

1 

1 

1 

0.4  -  0.2 

0.4  -  0.3 

0.4  -  0.5 

1 

1 

1 

0.5  -  0.2  0.5  -  0.3  0.5  -  0.4 

Entonces,  la  forma  modificada  de  Lagrange  es, 

P3(x)  =  (x  —  0.2) (x  —  0.3) (x  -*  0.4) (x  —  0.5)  (- 
y  la  forma  baricéntrica  es. 


-166.667, 

500, 

-500, 

166.667 


533.333  1650. 


1700.  750. 

+ 


x  —  0.2  x  —  0.3  x  —  0.4  x  —  0.5 


533.333  1650. 


1700. 


750. 


íM*)  - 


x  —  0.2  +  *-0.3 

1 

O 

+ 

x  —  0.5 

166.667  500. 

500. 

166.667 

- —  +  - - 

- —  + 

x  —  0.2  x  —  0.3  x  —  0.4  x  —  0.5 


En  ambos  casos,  /( 0.35)  ss  P3(0.35)  —  3.2875. 


2.5  Forma  baricéntrica  con  nodos  igualmente  espaciados. 


La  forma  baricéntrica  toma  una  forma  especialmente  simple  cuando  los  nodos  son  igualmente  espaciados. 

Sea  h  >  0  y  xk  —  xq  +  k  ■  h;  k  —  0,1,2 ...,«,  entonces 

—  ]”J  (xm  -  xk)  —  P3  (x0  +  m  ■  h  -  x0  -  k  ■  h)  —  (-l)n~mhnm\(n  -  m)\ 

k=0  k= 0 

kj^m  ky^m 

Ahora,  como  la  fórmula  (2.3)  no  cambia  si  cambiamos  iom  por  cv*n  =ccom  con  c  7^  0,  entonces  tomando  c—  (— 1  )nhnn\, 
los  pesos  modificados  se  convierten  en  coeficientes  binomiales  con  signo  alternado. 
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"m  =  m  =  0,l,-,n 

Finalmente,  la  forma  baricéntrica  para  nodos  igualmente  espaciados  no  depende  del  peso  h  y  sus  coeficientes  son 
enteros. 


=  y¿ 


si  X  =  Xj, 


Pn{x) 


SÍ  X  X¡ 


(2.4) 


EJERCICIOS 

2.1  Considere  los  cuatro  puntos  (0,1),  (1,2),  (3,0),  (4,4). 

a)  Calcule  el  polinomio  interpolante  Ps(x),  en  la  forma  de  Lagrange. 

b)  Verifique  que  efectivamente  Piix,)  =  y¡,  es  decir,  P3 ( 0 j  =  l,etc. 

c)  Interpolar  /( 3.5). 

2.2  Considere  los  cuatro  puntos  (0,1),  (1,2),  (3,0),  (4,4).  en  la  forma  de  modificada  y  la  forma  baricéntrica  de  La- 
grange. 

a)  Calcule  el  polinomio  interpolante  Ps(x),  en  la  forma  de  modificada. 

b)  Calcule  el  polinomio  interpolante  Ps(x),  en  la  forma  de  Baricéntrica. 

c)  Verifique  que  efectivamente  P^Xi)  =  y¡,  es  decir,  PÍO)  =  l,etc. 

d)  Interpolar  /( 3.5). 

2.3  Consideremos  la  siguiente  tabla  de  datos. 


X 

f(x) 

0.2 

1.2 

0.3 

5.3 

0.4 

9.4 

0.5 

10.5 

Calcule  la  forma  modificada  y  la  forma  baricéntrica  de  Lagrange  e  interpole  /(0. 35).  Ayuda:  Estas  fórmulas  permiten 
reutilizar  los  cálculos! 


2.4  Usando  la  forma  de  Lagrange  del  polinomio  interpolante  verifique  que  si  P(x)  pasa  por  (xo,yo),(xi,yi)  en‘ 

tonces  P(x)  =  (x  —  X\)  +  y Ayuda:  En  algún  momento  de  la  simplificación  debe  sumar  y  restar  y\X\. 

(*0  —  xi ) 


2.5  Considere  la  función  de  Bessel  Jo(x)  —  eos  (i' sen  0)  d().  Tenemos  la  siguiente  información. 


nJo 


x _ nj0(x) 

0  3.59 

0.2  3.11 

0.4  3.08 


a)  Obtener  la  forma  de  Lagrange  del  polinomio  interpolante. 

b)  Interpolar  }q  (0.25) 
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2.6  Considere  la  siguiente  tabla  de  salarios. 

Salarios  ($)  0-1000  1000-2000  2000-3000  3000-4000 

Frecuencia  9  30  35  42 

Estimar  la  cantidad  de  personas  con  salario  entre  $1000  y  $1500. 

2.7  Interpolar  eos  (1.75)  usando  la  tabla 


Xj  cos(l  +  3x¿) 

~0  0.540302 

1/6  0.070737 

1/3  -0.416147 

Ayuda:  La  estimación  que  se  obtiene  con  el  polinomio  interpolante  es  —0.17054. 

2.8  Considere  la  siguiente  tabla  de  vapor  para  H2O  calentada  a  200  MPa. 


v  (m3 /kg) 

0.10377 

0.11144 

0.1254 

s  (kJ/Kg  ■  K) 

6.4147 

6.5453 

6.7664 

a)  Use  interpolación  lineal  para  encontrar  la  entropía  s  para  un  volumen  especifico  v  de  0.108 ni3 /kg. 

b)  Use  interpolación  cuadrática  para  encontrar  la  entropía  s  para  un  volumen  especifico  v  de  0.1 08  m3/  kg. 

2.9  Usando  la  tabla  del  ejemplo  (2.2),  interpolar  /( 0.25). 


2.6 


Forma  de  Newton  para  el  polinomio  interpolante. 


La  representación 


P(x)  =  flo  +  al(x  —  *0)  +  al(x  —  *o)(x  —  xl)  +  ■  •  •  +  an(x  —  *0)  ■  ■■  (x  —  xn- 1), 

para  el  polinomio  interpolante  que  pasa  por  los  n  +  1  puntos  (*0,1/0)/—/  (xn,yn),  es  conocida  como  la  representación 
de  Newton  del  polinomio  interpolante. 


2.7 


Diferencias  Divididas  de  Newton. 


La  manera  más  conocida  para  calcular  la  representación  de  Newton  del  polinomio  interpolante,  está  basada  en  el 
método  de  diferencias  divididas.  Una  gran  ventaja  sobre  la  forma  clásica  del  método  de  Lagrange  es  que  podemos 
agregar  más  nodos  a  la  tabla  de  datos  y  obtener  el  polinomio  interpolante  sin  tener  que  recalcular  todo.  Comparado 
con  la  forma  modificada  de  Lagrange,  no  hay  ganancia  y  más  bien  esta  última  forma  es  más  estable.  Aún  así,  el 
método  de  diferencias  divididas  tiene  aplicaciones  adicionales  en  otros  contextos. 

Podemos  calcular  los  afs  usando  el  hecho  de  que  P(x¡)  —  y ¡, 

p(x  o)=  yo 
p(x  1)=  yi 

< 

p(x  2)=  yi 


—  «o 


«0  +  «l(*l  -  *0) 

a0  +  «! (x2  -  x0)  +  a2{x2  -  x0)  (x2  -  x{) 


ao  —  y  0/ 

„  yi  -  y  o 

«i 


T;'  = 


X\  ~Xq 

y2  -  gp  -ai(x2  -x0) 
(x2~x0)(x2-x1) 
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Si  yk  =  /(x/J,  la  fórmula  anterior  nos  muestra  que  cada  ak  depende  de  Xq,X\,...,x k.  Desde  muchos  años  atrás  se  usa 
la  notación  ak  =  f[xQ,x-¡,...xf  para  significar  esta  dependencia. 

Al  símbolo  /[x'o,X|,...x'H]  se  le  llama  diferencia  divida  de  /.  Usando  esta  nueva  notación  tendríamos  que  la  forma  de 
Newton  del  polinomio  interpolante  es 


P(x)  =  f[x0\+f[x0lxl\(x-x0)+f[xo/x-í,x2\(x-xo)(x-x  i) 
H - h  /[x0,...,x„](x  -  x0)  •  •  ■  (x  -  x„_i). 


donde  /[xq]  —  yo  y  /[xo,  ...,x¿]  es  el  coeficiente  principal  de  la  forma  de  Newton  del  polinomio  que  interpola  la  fun¬ 
ción  /  en  los  nodos  xq,x\ ,...,x¿. 


Ejemplo  2.10  (Interpolación  lineal). 


El  polinomio  interpolante  de  grado  <1  que  pasa  por  (xo,i/o),  (xj,iq  )  es 

pi(*)  =  /[^o]  +  /[xo,*i](*  -  xo)  donde  f[x o,^]  =  — ^4  y  f[x0\  =  yo 

(*0  —  Xjj 

- 


Si  consideramos  al  coeficiente  /[xo,xi,...x„]  como  una  función  de  n  +  1  variables,  entonces  esta  función  es  simétrica, 
es  decir,  permutar  las  variables  de  cualquier  manera  no  afecta  el  valor  de  la  función.  Esto  es  así  porque  el  polinomio 
que  interpola  los  puntos  {(x¡,y;)}i=0,...,n  es  único,  por  lo  tanto  sin  importar  el  orden  en  que  vengan  los  puntos,  el 
coeficiente  principal  siempre  es  an  =  f[xo,X\,...xn. 

¿Qué  es  f[x  k,xk+i,...,xk+j\?  Es  el  coeficiente  principal  de  la  forma  de  Newton  del  polinomio  que  interpola  una  función 
/  en  los  nodos  xk,xk+1 ,...,%.  Por  ejemplo,  si  tenemos  n  +  1  datos  (xo,yo), (*i,yi),— , {xn,yn),  el  polinomio  que 
interpola  (x3,y3),  (x4,y4)  sería 


piO)  =y3+f[x3,x4](x-x3). 


El  nombre  " diferencia  divida"  viene  del  hecho  de  que  cada  f[xk,xk+i,...,xk+j\  se  puede  expresar  como  un  cociente  de 
diferencias. 


Teorema  2.2 


La  diferencia  dividida  f[xk,xk+i,...,xk+j\  satisface  la  ecuación 


f\xk,Xk-\-l,  ■■■, 


f\Xk+l/%k+2/  •••Xk+j]  fi^kr  %k+lr  •••%k+j—l] 

xk+j  —  xk 


(2.5) 
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El  teorema  (2.2)  indica  que  cada  diferencia  dividida  se  puede  calcular  en  términos  de  otras  "diferencias"  previamente 
calculadas.  Los  ejemplos  que  siguen  son  casos  particulares  para  mostrar  cómo  se  aplica  el  teorema. 


f[xirXj\ 


f[x0,x  1,X2} 


Vi  ~  V] 

Xi  -  x¡ 

f\x  1,X2\  ~/[*0,*l] 

X2-X0 


f[xlrX2,X3\ 


f[x 2,X3]  ~f[x l,x2\ 

x3  -x3 


Ejemplo  2.11  (continuación). 


f[xlrx2,x3\  -f[xo,xlrx2] 

X3  —  Xq 

f[x2,x3,xA\  -  f\xlrx2,x3\ 

X x^ 

f[xi,x2,...,xk\  -  f[x0,x1,...,xk^1] 

xk-x  o 


Este  esquema  recursivo  se  puede  arreglar  en  forma  matricial  como  sigue. 


f\x0,x \,X2,X3\ 
f[xlrx  2,x3/x4] 

f[x0,x  l,...,xk] 


*0 

yo 

X\ 

Vi 

/[x0,Xi] 

X2 

V2 

f[x  1,X2\ 

f\XQ,X  1,X2] 

*3 

V3 

f[x2,x3] 

f[xi,x2,x3]  f[x0,X  l,x2,x3] 

En  general,  para  calcular  f[x  o],  f[x  o,x\],  f[xo,Xi,x2],-  ■  ■  ,f[xo,...,xn\,  debemos  calcular  una  matriz  en  la  que  las 
nuevas  columnas  se  construyen  con  los  datos  de  la  columna  anterior. 


72) 


f[x  0,Xl] 


f[x  1,X2\  -< — f[x o,x1,x2] 


f[x0,x  1,X2] 


f[x0,xi\  -  f\x  1,X2] 
x2  -x0 


La  misma  matriz  se  puede  usar  para  calcular  la  forma  de  Newton  para  subconjuntos  de  datos:  En  el  arreglo  que  sigue, 
la  diagonal  principal  (en  rojo)  corresponde  a  los  coeficientes  del  polinomio  que  interpola  los  datos  (xq (xH,i/f!) . 
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La  diagonal  en  azul  corresponde  a  los  coeficientes  del  polinomio  que  interpola  los  datos  {x\,y\),...,  (xn,yn) . 


yo 

y\ 

f[X0rXl\ 

yi 

f[x  1,X2\ 

f[x0,x1,x2] 

yo 

f[x  2,X3] 

f[xlrx2,x  3] 

y>i 

f[xn—l/Xn] 

f\_Xn— 2/Xn— 

f[xi,...,xn]  f[x0/x1,.../xn} 


Por  ejemplo,  para  calcular  el  polinomio  que  interpola  los  datos  (*3, 1/3),..., (x¿,y¿)  se  usa  la  (sub)matriz, 

V3 

y4  f[x3,x 4] 

3/5  f[x  i,x5\  f[x3,X  4,X5] 

3/6  /[x5,X6]  /[xl7X2,X3]  /[x3,X4,X5,X6] 

La  diagonal  principal  (en  rojo)  corresponde  a  los  coeficientes  del  polinomio  que  interpola  estos  cuatro  datos. 

v  Programa  en  Internet  (applet  Java): 

http: //www. tec-digital . itcr . ac . cr/ revistamatematica/ cursos-linea/NumericoApplets/DifDivNewton .htm 


Usando  diferencias  divididas,  calcular  el  polinomio  interpolante  para  los  datos  (  —  1,2),  (1,1),  (2,2), 
(3,-2)  y  el  polinomio  interpolante  para  los  datos  (1,1),  (2,2),  (3, —2). 


Solución:  Primero  construimos  la  matriz  de  diferencias  divididas  usando  todos  los  datos.  En  rojo  están  los  coefi¬ 
cientes  del  polinomio  que  interpola  todos  los  datos  y  en  azul  los  coeficientes  del  polinomio  que  interpola  los  datos 
(1,1),  (2,2),  (3, -2). 


*0 

yo 

2 

X\ 

yi 

f[x  0A1] 

1 

-1/2 

%2 

yi 

f[x\,X  2] 

f[XQ,X  1,X2]  2 

1 

1/2 

*3 

yo 

f[x  2,X3] 

/[x1,x2,x3]  /[x0,xl7x2,x3]  -2 

-4 

-5/2  -3/4 

El  polinomio  interpolante,  en  la  forma  de  Newton,  para  todos  los  datos  es 

P(x)  =  2—l/2(x  +  1)  +  l/2(x  + l)(x  -  l)-3/4(x  +  l)(x  -  l)(x  -  2) 
El  polinomio  interpolante,  en  la  forma  de  Newton,  para  los  datos  (1,1),  (2,2),  (3,  —2)  es 


P(x)  =  1  + 1  •  (x  - 1)  +  —5/2(x  -l)(x-  2) 
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De  una  función  /,  conocemos  la  información  de  la  tabla  (2.1).  Interpolar  /(0.35)  usando  un  polinomio  interpolante 
P3(x).  Primero  que  todo,  escriba  la  tabla  de  datos  que  va  a  usar. 


X  0 

0.1 

0.2 

0.3 

0.4 

0.5 

0.6 

0.7 

/(x)  3 

3.1 

3.2 

3.3 

3.4 

4.5 

4.6 

4.7 

Tabla  2.1 

Solución:  Como  se  requiere  un  polinomio  interpolante  P3 (x),  se  necesita  una  tabla  de  cuatro  datos.  Una  opción  es 


X 

0.2 

0.3 

0.4 

0.5 

/(x) 

3.2 

3.3 

3.4 

4.5 

Si  usamos  la  forma  de  Newton  del  polinomio  interpolante,  entonces 


3.2 

3.3  1 

3.4  1  0 

4.5  11  50  166.66 


ÍM*)  - 
+ 
+ 


3.2  +  1  ■  (x  —  0.2) 

0-  (x-0.2)  (*-  0.3) 

166.66  •  (x  -  0.2)  (x  -  0.3)  (x  -  0.4) 


Por  tanto  /( 0.35)  »  P3(0.35)  =  3.2875 


2.8 


Forma  de  Newton  en  el  caso  de  nodos  igualmente  espaciados. 


Si  tenemos  nodos  igualmente  espaciados  con  x^  —  xq  +  k  ■  h,k  —  0,1, ,...,«,  entonces  la  diferencia  hacia  adelante  de 
orden  1  en  es  A 1 1//;  =  2//t+i  —  Vk-  La  diferencia  hacia  adelante  de  orden  m  se  define  recursivamente  como:  A my¡t  = 
A  (A Así, 

A°J/fc  :=  J/fc, 

A^jk  =  yjt+i  -  Vk, 

^2Vk  -  Hyk+1  -  y k)  =  Vk+2  -  Vk+ 1  -  Vk+ 1  +  Vk  =  y*+2  -  2yfc+i  +  y*, 

-  U-W  (%+n-j 

j= 0 

En  particular 


A^o  =  Vr 

;'=0  LJ/ 


Recordemos  que  si  s  G  IR, 
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Q  -  ^ 

^  =  s(s  —  l)(s  —  2) 

/s\  =  s(s  —  l)(s  —  2)(s  —  3) 

04  0  24 


La  relación  entre  estas  diferencias  hacia  adelante  y  los  coeficientes  de  la  forma  de  Newton  del  polinomio  interpolante 
(en  el  caso  de  nodos  igualmente  espaciados)  se  expresa  mediante  la  fórmula, 

k'.hkf[x0,x1,...,xk]  =  Aky0. 


De  esta  manera,  la  forma  de  Newton  del  polinomio  interpolante,  para  nodos  igualmente  espaciados,  es 

Pn(x )  =yo  +  (x-  X0)  m  +  O  ~  x0){x  ~  Xi)  +  ••  •  +  (x  -  X0)(x  -  Xl)  ••  •  (x  -  X„_i)  ^  . 

Se  puede  hacer  una  simplificación  más;  si  x  =  xo  +  s  ■  li  entonces 

X  —  Xn 

h  =  S 

x  —  x¡  x  —  (xq  +  i  ■  h) 

h  h 


De  este  modo. 


(X  -  X0) 


(x  —  Xq)  (x  —  Xi) 


A/(x  o) 
llh 

A2/(x  q) 
2\h2 


^7^A1/(x0)=^)a1/(x0), 

(x-x0)(x-xi)  2  _  s(s-l)  2  _  (S\.  2j 


2\h2 


A  /(x o)  = 


2! 


-A 7(x0)  =  A  /(x0). 


(x-x0)(x-x1)---(x-x„_1) 


A”/(xp) 

n\hn 


(x-x0)(x-x1)---(x-xn_1) 

- ÜÍF' - A  /(*o) 

s(S-l)(S-2)...(s-„  +  l)A„/fa) 


n! 


A7(xo). 


Es  decir,  si  los  nodos  son  igualmente  espaciados  (de  paso  /z)  y  x  —  xq  +  s  •  /;, 
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Usando  la  tabla  de  datos,  interpolar  /( 0.35). 


X 

/(*) 

0.2 

3.2 

0.3 

3.3 

0.4 

3.4 

0.5 

4.5 

Solución:  Los  nodos  son  igualmente  espaciados  con  h  —  0.1.  La  matriz  de  diferencias  divididas  es, 

3.2 

3.3  1 

3.4  1  0 

4.5  11  50  166.66 

Como  0.35  =  0.2  + 1.5  ■  0.1,  =►  s  =  1.5, 


/ (0.35)  «P3  (0.35)  =  (^)0!(0.1)0  -3.2+  1!  (0.1)1  -1+  3!  (0.1)3  -166.66 

=  1  •  3.2  +  1.5  •  0.1  •  1  -  0.0625  •  6  ■  (0.1)3  •  166.66  =  3.2875. 
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2.10  Sea  P(x)  —  a^x5  +  a^x4  +  a^x3  +  a2x2  +  a-^x1  +  ao,  si  se  conoce  que  este  polinomio  pasa  por  (—1,3),  (0,0),  (1,4),  (2,0), 
(3,1),  (4,0),  determine  los  coeficientes  "a"  del  polinomio. 


2.11  Considere  los  datos  {xq,1),  (*2,2),  (x3,3),  (x4,4),  (xs,5),  donde  xo  —  0.1,xi  =  0.2,x3  =  0.3,x4  =  0.4  y  x$  =  0.5. 
Calcule  f[x 2,x3,x4]. 

2.12  Verifique  que  f[x0rx1,x2]  =  - 7  +  7 - Y7 - 7  +  7 - Y7 - 7’ 

(Xo  —  Xi)(Xo  —  X2)  (X4  —  Xo)(X\  —  X2)  (x2  —  Xo)(x2  —  X\) 

2.13  Considere  los  4  datos  (0,1),  (1,2),  (3,0),  (4,4). 

a)  Determine  la  matriz  de  diferencias  divididas  y  la  forma  de  Newton  del  polinomio  interpolante  P3(x). 

b)  Verifique  que  efectivamente  P3(x¡)  =  y,,  es  decir,  P(0)  =  l,etc. 

c)  Interpolar  /( 3.5). 

2.14  Considere  la  siguiente  tabla  de  datos  para  el  nitrógeno, 

T(K)  100  200  300  400  500  600 

B(cm3 /mol)  -160  -35  -4.2  9.0  16.9  21.3 


Tabla  2.2  Segundos  Coeficientes  vinales  B(cm3 / mol )  para  el  nitrógeno 

donde  T  es  la  temperatura  y  B  es  el  segundo  coeficiente  virial.  Interpolar  el  segundo  coeficiente  virial  a  450  K. 
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2.15  Usar  la  forma  de  Newton  del  polinomio  interpolante  para  completar  la  siguiente  tabla  de  datos  para  el  agua, 
donde  T  es  temperatura  y  p  es  la  densidad. 


T(C)  50  60  65  68  75  80 

p(kg/m3)  988  985.7  980.5  ?  974.8  971.6 


Tabla  2.3 


2.16  Verifique  que  /  [x¡,  Xj\  =  f  [xj,  x¿] . 

2.17  Usando  la  forma  de  Newton  del  polinomio  interpolante,  obtenga  el  polinomio  P¡  (x)  que  pasa  por  (xf^i/f,),  (xy,i/y). 

1  fn 

2.18  Considere  la  función  de  Bessel  Jo(x)  —  —  eos (x sen  0)  d6.  Tenemos  la  siguiente  información. 


x _ nj0(x) 

0  3.59 

0.2  3.11 

0.4  3.08 


a)  Obtener  la  forma  de  Newton  del  polinomio  interpolante. 

b)  Interpolar  Jq (0.25) 

2.19  En  la  tabla  que  sigue  aparece  las  estadísticas  de  un  curso  con  la  cantidad  de  estudiantes  en  cada  rango  de 
notas. 

Rango  de  Notas  30-40  40-50  50-60  60-70  70-80 

N°  Estudiantes  35  48  70  40  22 


a)  Estime  la  cantidad  de  estudiantes  con  nota  mayor  o  igual  a  65. 

b)  Estime  la  cantidad  de  estudiantes  en  el  rango  55  —  65 

2.20  La  siguiente  tabla  muestra  los  pesos  normales  de  bebés  durante  los  primeros  12  meses  de  vida. 

Edad  en  meses  0  2  5  8  10  12 

Peso  en  libras  7.5  10.25  15  16  18  21 

Determine  el  peso  de  los  bebés  entre  los  5  y  5.6  meses  de  vida. 

2.21  Interpolar  cos(1.75)  usando  la  tabla 


Xj  cos(l+3x¿) 

Ó  0.540302 

1/6  0.070737 

1/3  -0.416147 


Ayuda:  la  estimación  que  se  obtiene  con  el  polinomio  interpolante  es  —0.17054. 

2.22  Considere  la  siguiente  tabla  de  vapor  para  H2O  calentada  a  200  MPa. 


v  (m3 /kg) 

0.10377 

0.11144 

0.1254 

s  (kj  / Kg  ■  K) 

6.4147 

6.5453 

6.7664 

a)  Use  interpolación  lineal  para  encontrar  la  entropía  s  para  un  volumen  especifico  v  de  0.108 ni3 /kg. 
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b)  Use  interpolación  cuadrática  para  encontrar  la  entropía  s  para  un  volumen  especifico  v  de  0.108/n3/ kg. 
2.23  En  la  siguiente  tabla  de  diferencias  divididas,  complete  los  datos  que  faltan. 


x¡ 

Vi 

0 

2 

i 

3 

□ 

□ 

2 

-1 

-1 

3 

1 

□ 

0 

□ 

4 

3 

2 

1.5 

0.5  □ 

2.9 


Forma  de  Lagrange  vs  Forma  de  Newton. 


Usualmente  se  reserva  la  forma  de  Lagrange  del  polinomio  interpolante  para  trabajo  teórico  y  diferencias  divididas 
de  Newton  para  cálculos.  La  realidad  es  que  la  forma  modificada  de  Lagrange  es  tan  eficiente  como  diferencias  divididas 
de  Newton  en  cuanto  a  costo  computacional  y  además  es  numéricamente  mucho  más  estable.  Hay  varias  ventajas 
que  hacen  de  esta  forma  modificada  de  Lagrange,  el  método  a  escoger  cuando  de  interpolación  polinomial  se  trata 
([8],  [9]). 

Para  mostrar  la  inestabilidad  del  polinomio  interpolante  obtenido  con  diferencias  divididas  versus  el  obtenido  con 
la  forma  modificada  de  Lagrange,  consideramos  la  función  de  Runge  f(x)  —  1/ (1  +  25x2)  en  [—1,1],  Para  un  buen 
ajuste,  usamos  52  nodos  de  TChebyshev.  En  la  figura  (2.9,(a))  se  muestra  la  gráfica  de  /  junto  con  la  gráfica  del  poli¬ 
nomio  interpolante  obtenido  con  diferencias  divididas  ( PN(x ))  y  del  polinomio  interpolantes  obtenido  con  la  forma 
modificada  de  Lagrange  (PML(x)).  Usando  la  aritmética  usual  de  la  máquina,  se  nota  inestabilidad  de  PN(x)  en  las 
cercanías  de  x  —  —  1.  En  la  figura  (2.9,(b))  se  muestra  el  error  relativo  de  la  aproximación  a  /  con  cada  polinomio 
en  [-1,-0. 9],  EPN(x)  corresponde  al  error  relativo  entre  /  y  la  forma  de  Newton  del  polinomio  interpolante  y 
EPML(x)  corresponde  al  error  relativo  entre  /  y  la  forma  modificada  de  Lagrange. 


2.10 


Estimación  del  error. 


La  estimación  del  error,  cuando  interpolamos  con  un  polinomio  interpolante,  es  de  interés  práctico  en  varias  áreas, 
por  ejemplo  en  el  desarrollo  de  métodos  de  aproximación  en  ecuaciones  diferenciales  ordinarias  y  en  ecuaciones 
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diferenciales  en  derivadas  parciales. 

Una  estimación  del  error  se  puede  obtener  si  conocemos  alguna  información  acerca  de  la  función  /  y  sus  derivadas. 
Sea  /  G  Cn+1  [a,b]  y  P„(x )  el  polinomio  de  interpolación  de  /  en  (xo,yo)/  ( x\,\j\ ), ...,  ( xn,yn ),  con  x¿  G  [a,b\.  Entonces, 
usando  polinomios  de  Taylor  podemos  establecer  la  siguiente  fórmula  para  el  error 

/(x)  -  P„(x)  -  f  (*  -  *o)(*  -  *1)  ■  ••  (x  -  x„) 


donde  a  <  f(x)  <  b  y  x  G  [«, b] .  Aquí,  la  expresión  "£(x)"  significa  que  £  no  es  una  constante  fija,  sino  que  varía 
según  el  valor  que  tome  x. 

Para  efectos  prácticos,  a  y  b  son  el  mínimo  y  el  máximo  del  conjunto  {xo,X|,...,x„}.  Si  M„  es  el  el  máximo  abso¬ 
luto  de  la  función  |y(n+b|  en  [a,b\,  es  decir,  |/^n+1'(x)|  <  M,¡  para  todo  x  G  [, a,b\ ,  entonces  podemos  obtener  una 
estimación  del  error  /(x)  —  P„  (x)  con  la  desigualdad, 

|/(x)  -P«(x)|  <  |  (x  —  x0)(x  —  xx)  •  •  •  (x  —  x„)|;  xG  [a,b].  (2.6) 


Observe  que  un  polinomio  interpolante  de  grado  alto  no  garantiza  una  mejora  en  el  error:  Si  usamos  más  puntos 
(posiblemente  más  cercanos  entre  ellos)  se  puede  esperar  que  el  producto  üK*  —  xi)  se  haga  más  pequeño  con  n, 
pero  todavía  debería  pasar  que  la  derivada  de  orden  n  +  lno  crezca  más  rápido  que  (n  +  1)!  y  esto  parece  no  ser  la 
regla5. 

Si  IOS  nodos  SOn  igualmente  espaciados,  y  suponiendo  que  tenemos  n  y  Mn  fijos,  la  estimación  del  error 
depende  de  la  función  t{x)  —  (x  —  Xo)(x  —  X| )  ■  ■  ■  (x  —  xn).  La  forma  general  de  esta  función  se  muestra  en  la  figura 
que  sigue.  Esto  sugiere  que  en  el  caso  de  nodos  igualmente  espaciados  (excepto  n  —  1),  el  error  es  más  pequeño  si  x 


está  hacia  el  centro  y  empeora  en  los  extremos. 


5 

Georg  Faber  (1912)  demostró  que  para  cada  juego  de  nodos,  existe  un  función  continua  para  la  cual  los  polinomios  interpolantes  no  convergen 
uniformemente  a  /  y  también,  para  cada  función  continua  existe  un  juego  de  nodos  donde  los  polinomios  interpolantes  si  convergen  de  manera 
uniforme.  Aún  en  este  último  caso,  los  nodos  no  siempre  fáciles  de  obtener. 
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La  desigualdad  (2.6)  sería  suficiente  para  estimar  el  error  al  interpolar  en  un  valor  x,  pero  nos  interesa  también  una 
estimación  que  nos  sirva  para  todo  x  £  [xo,xn]. 


2.11 


Error  en  interpolación  lineal. 


(x  —  Xq)(x  —  X\) 

Si  tenemos  dos  puntos  (xo,yo)/  (xx,y{)  con  xq  <  x\,  el  error  es  f(x)  —  P\(x)  — - - - /  (£(x)).  ¿Cuál  es  el 

error  máximo  si  x  está  entre  xq  y  x\  y  si  f"  permanece  acotada  en  [xo,xi]  ?■ 

Si  |/"(x)|  <  M2  en  [xq,x-]],  entonces 

!/(*)“  pi(*)l  <  ^|(x-x0)(x-xi)|. 


El  error  máximo  depende  del  máximo  valor  de  la  función 

(x  —  Xn)(x  —  X\)  ,  .  ,  r  , 

en  el  intervalo  [xq,xx\. 


Como  i(x)  —  - ^ - — —  es  una  parábola  cóncava  hacia  ar¬ 

riba  (figura  2.11),  es  negativa  si  x  £  [xq,x-\  ,  por  lo  tanto  el  má¬ 
ximo  en  valor  absoluto  lo  alcanza  enr=  0  +  1 ,  y  es 

(*1  -^o)2 

8 

.'.  Si  se  usa  interpolación  lineal,  el  error  general  esta  acotado  por 

(X1  -  Xq)2 


1/W-PiWI  <m2- 


8 


Figura  2.4  £(x)  =  (x  —  Xq)(x  —  Xi)  y  |f(x)| 


Si  tabulamos  la  función  senx  para  Xo 
es 


0,  xx 


0.002,  X2  =  0.004,...  entonces  el  error  general  al  interpolar  linealmente 


senx  —  Pi(x)|  <  1 


(0.002)2 

8 


=  0.5  x  10"6, 


pues  |  senx|  <  1  V  x  (Aquí  suponemos  que  el  polinomio  se  evalúa  de  manera  exacta).  Esto  nos  dice  que  la  función 
senx  es  apropiada  para  interpolación  lineal. 


Si  deseamos  más  precisión  en  un  caso  particular,  podemos  usar  la  fórmula  (2.6).  Si  por  ejemplo  x  =  0.003,  entonces 
|sen(0.003)  —  Px  (0.003)  |  <  sen(^^  |  (0.003  —  0.002)  (0.003  —  0.004)  |  ss  —1.99  x  10~9  pues  el  máximo  absoluto  de 
|senx|  en  el  intervalo  [0.002,  0.004]  es  sen(0.004). 
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2.12 


Error  en  interpolación  cuadrática 


Si  interpolamos  con  tres  puntos  ( n  —  2)  igualmente  espaciados  xq,  x\  —  x  +  h  y  i'2  =  xq  -\-  2 h;  entonces  si  x  €  [i'o,  lyj 
y  si  \f'"(x)  <  M3  en  [a,b\,  la  estimación  general  del  error  es. 


|/(x)-P2(x)|  <  ^  (x-x0)(x-xi)(x-x2)| 

m3 

<  |(x  —  xo)(x  —  xo  — /i)(x  —  xo  —  2/;)| 

6 

Para  obtener  el  máximo  absoluto  de  la  función  f'(x)  —  (x  —  Xq)(x  -  x  ¡ )  (x  —  x2  )  calculamos  sus  puntos  críticos:  i'(x)  — 
3x2  +  x(—6h—  6x0)  +  6/ixo  +  3xg  +  2 h2,  los  ceros  de  esta  cuadrática  son 

1  1 

ri  =  g  (3 li  +  \Í3h  +  3x0)  y  r2  —  -  (3 h  -  \¡3h  +  3x0). 


Como  £(x)  se  anula  en  xq  y  x2,  el  máximo  absoluto  de  \£{x)\  es  máx{|^(ri)|,|¿(r2)|)  = 


2  h3 
3V3' 


El  error  general  al  interpolar  con  tres  puntos  igualmente  espaciados  es  \f(x)  —  P2(x)  |  <  _  ,  x  G  [xo,X2]. 

9v  3 


Si  tabulamos  la  función  senx  para  Xq 
de  grado  dos  es 


0,  x1 


0.01,  X2  =  0.02, ...  entonces  el  error  general  al  interpolar  con  un  polinomio 


pues  |  senx|  <  1  V  x. 


|senx  —  P2 (x)  |  < 


1  ■  (0.01)3 
9\/3 


6.415  x  10"8, 


2.13 


Error  en  interpolación  cúbica 


Si  tenemos  cuatro  puntos  igualmente  espaciados  (xo,yo)/  {xi>yi)>  ( x2,yi ),  (^3,1/3)  con  xq  <  x\  <  x2  <  x3,  una  estimación 
del  error  es 


|/(x)  -P3(x)|  <  -^|(x-xo)(x-xi)(x-x2)(x-x3)|,  con  |/(4)(x)|<M4  en  [x0,x3]. 


De  nuevo,  dados  n  y  M4  fijos,  la  estimación  del  error  general  depende  del  máximo  absoluto  del  polinomio  í(x)  — 
|(x  —  Xq) (x  —  Xi)(x  —  X2) (x  —  X3)|.  Como  X;  —  Xq  +  i  ■  h,i  —  1,2,3; 
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é(x)  —  (x  —  Xq)(x  —  X\)(x  —  X2)(x  —  X3) 

=  (x  —  xo)(x  —  xq  —  h){x  —  xq  —  2h)(x  —  xq  —  3  h) 

i'(x)  =  2(2x  —  3h  —  2xq)(x2  +  x(—3h  —  2xq)  +  h2  +  3hxo  +  Xq) 


Los  puntos  críticos  son  r\  —  0.5(3 h  +  2xg),  r 2  —  0.5(3 h  —  \/5/i  +  2xq)  y  —  0.5(3 h  +  V5h  +  2xq).  Como  £(x)  se  anula 

f9^4  4  í 

en  xq  y  X3,  entonces  el  máximo  absoluto  de  \£(x)\  es  máx{|^(ri)|, \£{ri)\,  |¿'(b3)|}  ==  j  x^r,  h4  >  =  h 4.  Finalmente, 


El  error  general  al  interpolar  con  cuatro  puntos  igualmente  espaciados  es  |  f(x)  —  P3{x)  \  <  ,  x  G  [xq,Xq\. 


Si  solo  interpolamos  valores  x  G  \x\,Xj\,  el  máximo  absoluto  de  \í(x)  en  este  intervalo  se  alcanza  en  el  punto 

9  h4 

medio  x  —  (x¡  +  x$)/2  —  0.5(3 h  +  2xq)  y  es  — — .  En  este  caso  la  estimación  del  error  general  es 

16 

I f(x)  -  P3(x)  I  <  3^4g  ,  X  G  [xlrx2]. 


Figura  2.5  í(x)  =  (x  —  Xq)(x  —  Xi)(x  —  x2)(x  —  X3) 


- 

Si  tabulamos  la  función  sen x  para  xq  —  0,  X\  =  0.05,  x2  —  0.10,X3  =  0.15,...  entonces  el  error  al  interpolar  con  P3 
entre  xi  y  x2  es 

|  senx  -  P3(x)|  <  1  ■  ¿(0-05)4  «  1.46  x  10"7, 
pues  |  senx|  <  1  V  x  (Aquí  suponemos  que  el  polinomio  se  evalúa  de  manera  exacta). 
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2.14 


Error  con  interpolación  con  polinomios  de  grado  n. 


Si  interpolamos  sobre  puntos  igualmente  espaciados  x¡  —xq  +  í-  h,  i  —  0, 1, n;  y  si  h  es  pequeño  entonces  /(,H 1 '  (£(x)) 
en  general  no  se  espera  que  varíe  gran  cosa.  El  comportamiento  del  error  es  entonces  principalmente  determinado 

por  é(x)  —  (x  —  xq)(x  —  x\)  ■  ■  ■  (x  —  xn). 


Figura  2.6  £(x)  =  (x  —  Xq)(x  —  X\)  ■  •  •  (x  —  xn)  con  n  =  7. 


Pero  las  oscilaciones  de  l{x)  se  hacen  más  violentas  si  n  crece. 


Sin  embargo,  la  sucesión  de  polinomios  interpolantes  { P„  (x) }  podría  converger  a  /  (sin  importar  si  los  nodos  son 
o  no  igualmente  espaciados);  esto  depende  del  comportamiento  de  la  derivada  k— ésima  de  /:  La  sucesión  { P„  (x) } 
converge  a  /  unifórmente  en  [a,  b]  (que  contiene  a  los  nodos)  si 


lim 

k— >oo 


(b  —  a)k 
k\ 


M*  =  0 


y  esto  sucede  si  /  es  analítica  en  una  región  suficientemente  grande,  en  el  plano  complejo,  que  contenga  a  [a,b]  ([1, 
pág  84]). 


2.15 


Otros  casos. 


Si  la  función  /  y  sus  derivadas  son  conocidas,  se  puede  hacer  una  estimación  del  error  con  el  máximo  absoluto. 
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Sea  f(x)  —  -  e^x~  1  !//2.  Usando  la  fórmula  de  error,  estime  el  error  que  se  cometería  al  interpolar  /( 1)  con  el  polinomio 
interpolante  obtenido  de  la  tabla 


X 

/(*) 

0.7 

0.43 

0.8 

0.45 

1.1 

0.53 

1.2 

0.55 

Solución:  Son  cuatro  datos  (no  igualmente  espaciados),  n  +  1=4.  Luego,  la  fórmula  para  estimar  el  error  es 


|/(1)-P3(1)|  = 


/(4)(?) 


4! 


(1  -  0.7) (1  -  0.8)(1  -  1.1) (1  -  1.2) 


< 


M 

—  (1  -  0.7)(1  -  0.8)(1  -  1.1)(1  -  1.2) 


donde  M  es  el  máximo  absoluto  de  |  (x)  \  —  \X  e |,  en  [0.7,  1.2] 


Cálculo  de  M 


Puntos  críticos:  La  ecuación  f1'5'1  (x)  =  ¿  —  0  no  tiene  solución,  así  que  no  hay  puntos  críticos. 

Comparación:  M  =  máx{|/(4)  (0.7)|,  |/W  (1.2)1)  =0.0345366... 


Finalmente,  la  estimación  del  error  es  |/(1)  —  P3(l)  < 


M 

—  (1  -  0.7)(1  -  0.8)(1  -  1.1)(1  -  1.2) 


=  1.72683  x  10 


-6 


2.16 


Interpolación  Iterada  de  Neville 


Si  no  tenemos  información  acerca  de  las  derivadas  de  una  función  no  podemos  usar  la  fórmula  para  el  cálculo  del 
error.  Entonces,  ¿cuál  es  el  grado  del  polinomio  de  interpolación  más  adecuado  para  interpolar  un  valor?.  Para  res¬ 
ponder  esta  pregunta  podemos  usar  el  algoritmo  de  Neville,  este  método  interpola  un  valor  particular  con  polinomios 
de  grado  cada  vez  más  alto  (iniciando  en  grado  cero)  hasta  que  los  valores  sucesivos  están  suficientemente  cercanos. 
Luego  por  inspección  podemos  decidirnos  por  un  valor  en  particular. 

Usemos  la  siguiente  notación:  Pgq  es  el  polinomio  interpolante  que  pasa  por  (xq,i/q),  (t'i  ,  i/i );  Po,i,2  es  el  polinomio 
interpolante  que  pasa  por  (x0,i/o)/  (*1/3/1 ),  Pi ,2,3,4  es  el  polinomio  interpolante  que  pasa  por  {x\,y\),(x2,yi), 

(x3/J/3)/  (*4, 1/4);  etc.  Como  no  tenemos  información  acerca  de  las  derivadas  de  /,  el  criterio  para  estimar  el  error  es 
empírica  e  implícita:  Nos  quedamos  con  la  estimación  que  presente  'menos  variación'. 

Consideremos  la  siguiente  tabla  de  datos. 


X 

1.2 

1.3 

1.4 

1.5 

1.6 

m 

0.7651977 

0.6200860 

0.4554022 

0.2818186 

0.1103623 
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Para  interpolar  en  x  —  1.35  tenemos  varias  opciones  y  combinaciones,  con  tres  nodos,  con  cuatro  nodos,  etc.  Usando 
nuestra  notación,  algunos  resultados  son  Po, 1,2(1-35)  =  0.5401905;  Pi23(l-35)  =  0.5388565;  Poi23(l-35)  =  0.5395235; 
Pi234(l-35)  =  0.5395457;  Poi234(l-35)  =  0.5395318.  La  menor  variación  la  encontramos  con  Poi23(l-35)  =  0.5395235; 
Pi234(l-35)  =  0.5395457  y  Poi234(l-35)  =  0.5395318  y  de  estos  tres,  los  más  cercanos  son  Poi23(l-35)  =  0.5395235  y 
Poi234(l-35)  =  0.5395318.  En  este  caso  parece  lo  mejor  quedarnos  con  la  aproximación  Poi234(l-35)  =  0.5395318  ya 
que  toma  en  cuenta  toda  la  tabla. 

El  problema  en  el  anális  anterior  es  la  gran  cantidad  de  polinomios  que  se  deben  evaluar,  el  algoritmo  de  Neville 
precisamente  automatiza  esta  tarea  usando  cálculos  anteriores  para  obtener  el  nuevo  cálculo.  El  algoritmo  de  Neville 
no  calcula  P(x)  sino  que  evalúa  varios  polinomios  interpolantes  de  Lagrange  en  un  valor  dado. 

Sea  Qi'j  el  polinomio  interpolante  que  pasa  por  (*¿_y,y,-_,-) . . .  (*¿,i/¿),  es  decir,  Q¡y  =  P¿_y/¿_y+i/;_y+2,.../i-i/!'  es  el  poli¬ 
nomio  interpolante  (en  la  forma  de  Lagrange)  que  pasa  por  los  nodos  (x¿_y,r/,_ ;),  (*i_y+i,y;_y_|_i), ...,  (*¿,y¡),  0  <  y  <  z. 
Por  ejemplo, 

Qo,0  =  Po  pasa  por  (*0,y0),  es  decir,  P0(*o)  =  y0. 

Qi,o  —  P4  pasa  por  (*4,1/4),  es  decir,  P4(*4)  =  y4. 

Q.5,2  =  P3,2,l  pasa  por  (*3,1/3),  (*4,1/4),  (*5,1/5) 

Q4,4  =  Po,l,2,3,4  pasa  por  (*0,1/0),  (*1,1/1),-,  (*4,1/4) 

Con  esta  definición  de  Q,y  se  tiene  la  siguiente  relación  recursiva. 


Qi,j(x) 


(x  -  *,--;-)Q,.J._1  (*)  -  (*  -  *i)Q, _xhl  (*) 
*í  -  *;■-! 


(2.7) 


Aplicando  esta  relación  para  i  —  1,2 ,..,n;  /  =  1,2,..., i  se  logra  calcular  varios  polinomios  interpolantes  de  Lagrange 
en  un  valor  *,  como  se  muestra  en  la  siguiente  tabla  (para  el  caso  de  5  nodos) 


*0  Q 0,0  =  yo 

*1  Qi,o  =  yi  Qi,i  =  p0,i 

*2  Q2,0  =  1/2  Q2,l  =  Pl,2  Q2,2  —  Po,l,2 

*3  Q3,0  =  1/3  Q3,l  =  P2,3  Q3,2  =  Pl,2,3  £*3,3  =  Po,l,2,3 

*4  Q4,0  =  y  4  Qi,l  =  P3,4  Qá,2  =  P2,3,4  Q4,3  =  Pl, 2,3,4  Q4,4  =  Pp,l,2,3,4 


v  Programa  en  Internet: 

http: //www. tec-digital . itcr . ac . cr /revi stamatematica/cursos-linea/NumericoApplets /Neville .htm 
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La  distribución  gamma  se  define  como 


Supogamos  que  tenemos  la  siguiente  tabla  de  datos,  obtenida  con  —  1  y  a  =  2. 


x  I  F(x;l,2) 


0 

0 

* 

0.0 

Xj  =0.1 

0.00467884 

x2  =  0.2 

0.01752309 

x3  =  0.3 

0.03693631 

X4  =  0.4 

0.06155193 

Ejemplo  2.19  (continuación). 


Si  queremos  estimar  F  en  0.25  debemos  usar  polinomios  que  al  menos  pasen  por  x2  y  x3-  Por  ejemplo  P„ ¡  2 ,,  P1  234,etc. 
Aplicando  el  algoritmo  de  Neville  en  x  =  0.25,  obtenemos  la  tabla  (redondenado  a  7  cifras  decimales). 


*0 

Po 

0 

0.0 

*1 

Pi 

Po,i 

0.1 

0.0046679 

0.0116697 

*2 

P2 

Pl,2 

P0,l,2 

0.2 

0.0175231 

0.0239507 

0.0270209 

*3 

P3 

P2,3 

Pl,2,3 

Po,i,2,3 

0.3 

0.0369363 

0.0272297 

0.0264099 

0.0265118 

x4 

P4 

P3A 

P2,3,4 

Pl,2,3,4 

Pü,l, 2,3,4 

0.4 

0.0615519 

0.0246285 

0.0265794 

0.0264947 

0.0265011 

La  menor  variación  la  tenemos  entre  Pi,2,3,4  y  Po, 1,2,3,4(0-25).  Como  F(0.25;l,2)  —  0.026499021...,  la  mejor  aproxi¬ 
mación  en  realidad  es  Py 2,3,4,  pero  en  la  práctica,  por  suspuesto,  tomamos  decisiones  sin  esta  información. 


2.16.1  Algoritmo 

El  algoritmo  es  muy  parecido  al  método  de  diferencias  divididas  de  Newton,  escribimos  la  primera  columna  de  la 
matriz  Q  (las  y¡'s)  y  luego  completamos  la  matriz  con  la  relación  recursiva  (2.7). 
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Algoritmo  2.1:  Algoritmo  de  Neville 

Datos:  Valor  a  interpolar  x  y  los  nodos  (xo,t/o)/  (*l/3/l)/  (xn,yn) 

Salida:  Matriz  Q 

1  for  i  —  0 do 

2  L  Qo  =  yi 

3  for  i  —  1  do 

4  for  j  —  l,...,z  do 

^  _  (*  -  xi-j)Qi,h i  (*)  ~(x~  xi)Qi-i,hi  ( x ) 

5  ''  Xi  -  Xj_i 

6  return  Matriz  Q 
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2.24  Sea  /(x)  =  x2lnx  —  x2.  Supongamos  que  P(x)  es  el  polinomio  interpolante  de  /  obtenido  con  los  datos 
(1,  —1),  (2,  —1.2),  (3,  0.88) .  Estime  el  error  cometido  al  aproximar  /(2.71)  con  P(2.71). 


2.25  Sea  /(x)  =  ln(4x2  +  2)  Usando  la  fórmula  de  error,  estime  el  error  que  se  cometería  al  interpolar  /(1.22)  con 
el  polinomio  interpolante  obtenido  de  la  tabla 


2.26  Considere  la  tabla  de  datos 


X 

/(*) 

0.5 

1.09861 

1.1 

1.92279 

1.2 

2.04898 

1.3 

2.1702 

X 

ex 

0 

i 

0.5 

e0.5 

1 

e 

Estime  el  error  cometido  al  aproximar  e 0  6 


con  el  polinomio  de  interpolación  correspondiente,  en  el  intervalo  [0,1]. 


2.27  Sea  /(x)  =  cos(3x  +  1).  Supongamos  que  P(x)  es  el  polinomio  interpolante  de  /  obtenido  con  los  datos 
(0.,0.54),  (0.5, —0.80),  (1.,  —  0.65) .  Estime  el  error  cometido  al  estimar /(0. 71)  con  P(0.71). 


2.28  Considere  la  tabla  de  datos 


x¡  cos(l+3x¿) 

Ó  0.540302 

1/6  0.070737 

1/3  -0.416147 


Estime  el  error  cometido  al  interpolar  eos  (1.75)  con  el  polinomio  de  interpolación  obtenido  con  la  tabla  anterior,  en 
el  intervalo  [0,1/3].  Ayuda:  Observe  que  en  este  caso,  x  1.75! 
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2.29  Sea  f(x)  —  -  (cosx  +  senx).  Considere  el  conjunto  de  puntos  {(x¿,/(x¡))}¡=o,i,2,3  con  x¡  =  i  ■  n/ 2.  Estime  el 
error  general  cometido  al  aproximar  /(37t/4)  con  P3(37t/4). 


2.30  Sea  /(x)  =  —  - 


xu  3  eos  (2  x) 


8 


.  Considere  el  conjunto  de  puntos  {(x¡,/(x¡))}¡=o,i/2,3  con  xi  —  i  ■  0.2.  Estime  el 


error  general  cometido  al  aproximar  /( 0.65)  con  P3(0.65). 


2.31  Complete  la  fila  6  en  la  tabla 


x0 

Qo,o 

=  Po 

Xi 

Qi,o 

=Fl 

Qi,i 

—  Po,l 

x2 

Q2,0 

=p2 

Q24 

=  Pl,2 

0.2,2 

—  £*0,1,2 

x3 

£*3,0 

=p3 

Q34 

—  Pl,3 

0,3,2 

=  £*1,2,3 

Q3,3  —  £*0, 1,2,3 

X4 

Q4,0 

=  p4 

Qí,i 

II 

Qi,2 

II 

OJ 

£?4,3  =  £*1 ,2,3,4 

X5 

£*5,0 

=p5 

2.32  Aproximar  F(0.25;l,2)  (función  gamma,  ver  ejemplo  2.19)  usando  interpolación  lineal,  cuadrática  y  cúbica. 

2.33  Use  el  algoritmo  de  Neville  para  aproximar  F(0.25;l,2)  usando  nuestro  criterio  empírico  para  obtener  una 
"mejor  aproximación". 

2.34  Supongamos  que  Xq,X\, ...,xn  son  nodos  distintos  de  un  intervalo  finito  [a, b] .  Sea  Pn{x)  el  polinomio  inter¬ 
polante  obtenido  con  los  datos  {(xi,f(x¡)}i= Si  \fin+1](x)\  <M  para  x  en  [a,b],  muestre  que  si  x*  €  [a,b]. 


\f(x*)  -  P„(x*)|  <  ^yy  (P  -  a)n+1 


2.17 


Trazadores  Cúbicos  (Cubic  Splines). 


Un  trazador  (spline)  es  una  banda  de  hule  delgada  y  flexible  que  se  usa  para  dibujar  curvas  suaves  a  través  de  un 
conjunto  de  puntos.  Los  trazadores  cúbicos  (cubic  splines)  naturales  se  utilizan  para  crear  una  función  que  interpola 
un  conjunto  de  puntos  de  datos.  Esta  función  consiste  en  una  unión  de  polinomios  cúbicos,  uno  para  cada  intervalo, 
y  está  construido  para  ser  una  función  con  derivada  primera  y  segunda  continuas.  El  'spline'  cúbico  natural  también 
tiene  su  segunda  derivada  igual  a  cero  en  la  coordenada  x  del  primer  punto  y  el  último  punto  de  la  tabla  de  datos. 

Supongamos  que  tenemos  n  +  1  puntos  (x'o,  t/o), ...,  (xn,yn )  con  xo  <  xi  <  ...  <  xn.  En  vez  de  interpolar  /  con  un 
solo  polinomio  que  pase  por  todos  estos  puntos,  interpolamos  la  función  /  en  cada  subintervalo  [x^Xjt+i  ]  con  un 
polinomio  cúbico  (en  realidad  de  grado  <  3)  Sj-(x)  de  tal  manera  que  el  polinomio  cúbico  (o  trazador  cúbico)  S, (x) 
en  [x;,x¿_|_i]  y  el  trazador  cúbico  S!+i(x)  en  [x¿+ i,x¡+2],  coincidan  en  xí+1  y  que  también  sus  derivadas  primera  y 
segunda  coincidan  en  este  punto.  Cada  trazador  cúbico  coincide  con  /  en  los  extremos  de  cada  intervalo. 


Introducción  a  los  Métodos  Muméricos..  Walter  Mora  F. 
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Definición  2.4  (Trazador  Cúbico). 


Un  trazador  cúbico  S  es  una  función  a  trozos  que  interpola  a  /  en  los  n  +  1  puntos  (xo,yo)/  (xi,i/i),  (x2/J/2)/  ■■■, 
( xn,yn )  (con  a  —  xq  <  x¡  <  ...  <  xn  =  b).  S  es  definida  de  la  siguiente  manera, 

ÍSo(x)  si  i  £  [i0,q], 

Si(x)  si  xG  \X\,X2), 

.  . 

S„_i(x)  si  xe[xn_lrxn], 


Donde, 

(a) .  S¡(x)  —  a¿  +  b¡(x  —  x¡)  +  c¿(x  —  x¡ )2  +  d¡(x  —  x¡)3  para  i  —  0,1,. .  .n  —  1 

(b) .  S(x¡)  =  y ¡,  i  —  0,1 Para  efectos  prácticos,  Sj(x¡)  —  y¡,  j  —  0,1,.. —  1  y  S„_i(x„_1)  =  yn-\  y  S„_i(xn)  = 

yn.  El  siguiente  item  asegura  que  S,(i',+-| )  —  i/;-+i . 

(c) .  Si(xí+1)  =S/+i(x¿+1)  para  ¿  =  0,l,...,n  -2 

(d) .  S/(x/+i)  =  S-+1(x¿+i)  para  i  =  0,l,...,n *- 2 

(e) .  S"(x,+1)  =  S-^Xj+i)  para  i  =  0,l,...,n  -  2 

(f) .  Se  satisface  una  de  las  dos  condiciones  que  siguen, 

(i) .  S"(xo)  =  S"{xn)  —  0  (frontera  libre  o  natural) 

(ii) .  S'(xq)  —  f  {xq)  y  S'(xn)  —  f'(xn)  (frontera  sujeta) 


Una  aplicación  directa  de  los  trazadores  cúbicos  es  la  de  "suavizar  curvas".  Tanto  en  Excel  como  en  Cale  de  OpenOf- 
fice  o  LibreOffice,  en  las  gráficas  de  dispersión,  los  pares  ordenados  ( x¡,y¿ )  se  pueden  unir  con  segmentos,  con 
trazadores  cúbicos  o  con  el  polinomio  interpolante  (también  hay  otras  opciones,  según  el  modelo  o  tendencia  que  se 
esté  aplicando).  En  la  gráfica  de  la  figura  (2.17)  se  muestra  un  conjunto  de  datos  unidos  por  segmentos,  unidos  por 
trazadores  cúbicos  y  unidos  por  el  polinomio  interpolante. 

Algunas  curvas  presentan  "picos"  así  que  se  construye  un  trazador  para  cada  curva  entre  cada  dos  picos.  El  tratamiento 
de  picos  requiere  usualmente  un  trazador  con  frontera  sujeta. 

El  proceso  de  construcción  del  trazador  cúbico  consiste  en  determinar  cada  polinomio  cúbico  Sy(x),  es  decir,  bus¬ 
car  sus  coeficientes  a¡,  bu  c¡  y  d¡.  La  definición  nos  da  las  condiciones  que  se  deben  cumplir.  De  estas  condiciones 
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(a)  Gráfico  de  líneas  (b)  Gráfico  ajustado  con  trazadores  (c)  Gráfico  ajustado  con 

cúbicos  trazadores  y  ajustado  con  el 

polinomio  interpolante 


podemos  obtener  un  sistema  de  ecuaciones  4 n  x  4n,  donde  las  incógnitas  son  todos  los  coeficientes  a¡,  b,,  c¡  y  d¡, 
i  —  0,1,..., n  —  1.  Lo  que  obtenemos  es  un  trazador  cúbico  único. 


Determinar  el  trazador  cúbico  (frontera  libre)  para  la  siguiente  tabla. 


X, 

y  i  =  cos(3x? )  ln(x?  +  1) 

X 

o 

II 

O 

0 

X!  =  0.75 

-0.0409838 

X2  =  1.5 

1.31799 

Solución:  El  trazador  es,  S(x)  = 


S0(x)  =  «o  +  b0(x  -  x0)  +co{x  ~  x0)2  +  do(x  -  x0)3  si  x  e  [x0,xi], 
Si(x)  =  ci\  +  b\(x  —  xi)  +  ci(x  —  xi)2  +  d\(x  —  xj)3  si  x  £  [xi,X2]. 


Hay  que  determinar  los  coeficientes  de  Sq  y  Si  resolviendo  el  sistema  8x8, 


So(x0) 

=  yo 

Si(xi) 

=  yi 

Si(x2) 

=  V2 

S0(xi) 

=  Si(x!) 

S'(xi) 

=  S^(xi) 

S"(xO 

-  S"(X!) 

Sq (xo) 

=  0 

l  S” (x2) 

=  0 

«i 

«i  +  0.75í>i  +  0.5625c!  +  0.421875^ 
ciq  0.75b0  i  0.5625c0  0.421875í¿o 
bo  1.5co  +  1.6875do 
2co  +  4.5do 

2co 

2ci  4.5c?i 


0 

-0.0409838 

1.31799 

«i 

bi 

2a 

o 

o 


La  solución  de  este  sistema  es  a  o  =  0,  bo  —  —0.521299,  c  o  =  0,  do  —  0.82960 7,  a\  —  —0.0409838,  b\  —  0.878663, 
Ci  =  1.86662,  y  di  —  —0.82960 7.  Es  decir. 
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Ejemplo  2.20  (continuación). 


S(x)  = 


S0(x)  = 

Si(x)  = 


-0.521299x  +  0.829607x3  si  x  6  [0,  0.75] 

-0.0409838  +  0.878663(x  -  0.75)  +  1.86662(x  -  0.75)2  -  0.829607(x  -  0.75)3  si  x  €  [0.75,  1.5]. 


La  representación  gráfica  para  de  S  y  /  es 


En  las  figuras  (2.8)  se  muestra  el  trazador  correspondiente  a  los  nodos  Xq  =  0,  x¡  —  0.5,  x2  —  1,  X3  =  1.5  y 

xq  =  0,  x1  =  0.375,  x2  —  0.75,  x3  =  1.125,  x4  —  1.5. 


Determinar  el  trazador  cúbico  (frontera  libre)  para  la  sigu¬ 
iente  tabla. 


x¡ 

y ¡  =xf  -  4xf 

*0  = 

-2 

48 

Xi  = 

-1 

5 

X2 

=  0 

0 

*0  = 

-2 

-3 

Xl  = 

-1 

-16 

Observe  que  la  función  x4  —  4x3  tiene  un  punto  de 
inflexión  en  x  =  0. 


Solución:  El  trazador  es. 


S(x)  = 


S0(x)  =  9.85714(x  +  2)3  -  52.8571  (x  +  2)  +  48 

Si(x)  =  — 11.2857(x  +  l)3  +  29.5714(x  +  l)2  -  23.2857(x  +  1)  +  5 

S2(x)  =  -0.714286x3  -  4.28571x2  +  2x 

S3(x)  =  2. 14286 (x  -  l)3  -  6.42857(x  -  l)2  -  8.71429(x  -  1)  -  3 


si  x  e  [-2,-1], 
si  x  e  [—1,0]. 
si  x  e  [0,1], 
si  x  €  [1,22]. 
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Pasos  para  obtener  el  trazador  cúbico  (frontera  natural).  El  proceso  general  sería  como  sigue.  Sea  h¡  =  xl_]  —  x,, 


O  De  acuerdo  al  item  (a)  de  la  definición  (2.4),  S¿(x,)  =  y¡  =x  ai  =  y¡. 


9  Haciendo  algunas  manipulaciones  algebraicas  en  el  sistema,  se  obtiene 


,  _  ci+ 1  ci  A  7  _  y¡+i  y¡ 

3  h¡  1  hi 


hi 

3 


(2  c¡  +  c¡+ 1). 


(2.8) 


La  condición  de  frontera  natural  hace  que  Cq  =  cn  =  0. 


9  Ahora  todo  depende  del  cálculo  de  los  c¿'s.  Éstos  se  calculan  resolviendo  el  sistema  (n  +  1 )  x  (n  +  1) 


/  1  0 

h0  2(/;0  +  /q) 

0 

0 

0  o 


o 

hi 

2(h  +h2) 


hn— 3  2(7l„_3  +  hn  — 2 )  7)f¡_2 


^  C0  ^ 

Ci 

Cn— 1 

\  Cn  / 

o 

3(/[x2,Xi]  -  f[x\,X o]) 
3(/[x3,x2j  -f[x2,xi]) 

3(f[Xn/Xn— l]  f[%n— 1/  Xn— 2] ) 

0 


Como  antes,  f[x¡,Xj]  —  (y¡  —  yj)/(x¡  —  x¡). 


v  Programa  en  Internet: 

http : //www. tec-digital . itcr . ac . cr/revistamatematica/cursos-linea/NOMERICO/SitioInterpolacion/SplinesNatural/SplinesNatu 
ral.htm 


Determinar  el  trazador  cúbico  (frontera  natural)  para  la  siguiente  tabla. 


x¡  y  i  =  cos(3x?)  ln(x?  +  1) 


x0  =  0 

0 

Xj  =  0.5 

0.0861805 

X2  =  l 

-0.686211 

x3  =  1.5 

1.31799 

Solución:  El  trazador  es, 

xG  [x0,Xi], 
X  G  [xi,X2]. 
xe  [x2,x3]. 


!s0(x)  =a0  +  b0(x  -  x0)  +  C0(x  -  x0)2  +  d0(x  -  x0)3  si 

Si(x)  =  a\  +  b\(x  —  xi)  +  cj(x  —  xi)2  +  di(x  —  xj)3  si 

S2(x)  =  «2  +  b2(x  —  Xi)  +  C2  (x  —  xj)2  +  d2  (x  —  xj)3  si 
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Ejemplo  2.22  (continuación). 


Hay  que  determinar  los  coeficientes  de  So,  Si  y  S2.  Iniciamos  calculando  los  c¡' s.  Resolvemos  el  sistema  4x4. 
Recordemos  que  h¡  —  x¡+  ]  —  x¡, 


( 


1 


0  0  0  \ 

h0  2  (ho  +  hi)  hx  0 

0  h\  2  (h\  +  /12)  h2 

V  0  0  0  1  ) 


í  C°  \ 

ci 
C2 

V  C3  / 


0 

yi-yo 

*i-*o< 

q  /  y3~y2  _  yz-yi 

'x3-X2  *2-*l. 


q  /  j/2— yi 
J '  *2-*! 


0 


/ 1 

0 

0 

°  ^ 

t 

Co 

/ 

0 

\ 

0.5 

2. 

0.5 

0 

Ci 

-5.15143 

0 

0.5 

2. 

0.5 

C2 

16.6596 

V  0 

0 

0 

1  ) 

V 

C3 

) 

l 

0 

/ 

Obtenemos  Co  =  0,  ci  =  —4.96871,  C2  —  9.57196  y,  por  convenio,  el  comodín  c3  —  0. 

Ahora  podemos  obtener  el  resto  de  coeficientes:  a¡  =  y,,  los  b{ s  y  los  d¡'s  usando  la  ecuación  (2.8). 

b0  =  1.00048,  bx  =  -1.48387,  b2  =  0.8177508 
d0  =  -3.31247,  d1  =  9.69378,  d2  =  -6.38131. 

Finalmente,  el  trazador  cúbico  es 

S0(x)  =  —  3.31247x3  +  0.x2  +  1.00048*  si  xe  [0,0.5], 

Sjjx)  =  9.69378(x  —  0.5)3  —  4.96871(x  —  0.5)2  —  1.48387(x  —  0.5)  +  0.0861805  si  x  e  [0.5,1], 
S2(x)  =  — 6.38131(x  -  l)3  +  9.57196(x  -  l)2  +  0.8177508(x  -  1.)  -  0.686211  si  x  €  [1,1.5]. 
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2.35  Calcule  el  trazador  cúbico  (natural)  para  el  conjunto  de  datos  (0,0),  (1,1),  (2,8). 

2.36  Considere  la  tabla  de  datos. 


T(K)  100  200  300  400  500  600 

B(cm3  /  mol)  -160  -35  -4.2  9.0  16.9  21.3 


Tabla  2.4  Segundos  Coeficientes  vinales  B(c)1Z3/wd/)  para  el  nitrógeno 

donde  T  es  la  temperatura  y  B  es  el  segundo  coeficiente  virial. 

a)  Calcule  el  trazador  cúbico  (natural)  para  el  conjunto  de  datos  de  la  tabla. 

b)  ¿Cuál  es  el  segundo  coeficiente  virial  (interpolado)  a  450 fC? 

c)  Hacer  la  representación  gráfica  del  trazador  cúbico  y  del  polinomio  interpolante  Ps^x). 

2.37  Considere  la  siguiente  tabla  de  datos  para  el  agua,  donde  T  es  temperatura  y  p  es  la  densidad.  Hacer  la 
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T(C)  50  60  65  75  80 

p{kg/m3)  988  985.7  980.5  974.8  971.6 


Tabla  2.5 


representación  gráfica  del  trazador  cúbico  y  del  polinomio  interpolante  P4(x). 


2.18 


Algoritmos  e  implementación  con  Basic  de  OpenOffice  o  de  LibreOffice,  y  Cale. 


2.18.1  Forma  de  Lagrange  del  polinomio  interpolante 

En  esta  primera  implementación  calculamos  Pn  (x* '),  es  decir,  no  calculamos  el  polinomio  interpolante;  más  bien  cal¬ 
culamos  este  polinomio  evaluado  en  un  número  x*.  Obtener  el  polinomio  es  sencillo.  Al  final  de  esta  subsección  se 
indica  cómo  hacerlo. 

Recordemos  que  la  forma  de  Lagrange  del  polinomio  interpolante  es 

Pn(x)  =  y0Ln/0(x)  +y1LnA(x)  +  ...  +  ynLn,n(x) 

donde 

l  pT*)_(x*~xo)  (**-*l)  ix*~xk-l)  {x*~xk+í)  (x*-x„) 

n,k  {Xk~X  o)  (xk-Xi)  {xk-xk_l)  (xk-xk+1)  (xk-xn) 

La  implementación  directa  sería  acumular  el  producto  'en  rojo',  brincar  el  factor  (x*  —  xk)  y  acumular  el  producto 
'en  azul'.  El  algoritmo  sería. 


Algoritmo  2.2:  Forma  de  Lagrange  del  polinomio  interpolante  -  Versión  1. 


1 

2 

3 

4 

5 

6 


Datos:  n  +  1  datos  {(x¿,y;)};=o,i,...,n  con  los  x,'s  distintos;  y  x* 
Salida:  Polinomio  interpolante  evaluado  en  x*,  i.e.  Pn(x*) 
suma=  0; 


for  k  —  0  ton  do 

pr  =  1; 

for  i  —  0  ton  do 
if  i^k  then 

(x*  -  Xi) 


pr  = 


( xk-x¡ ) 


■  pr 


7  suma=  suma  +  yk*  pr 

8  return  suma 


Una  implementación  en  Basic  (OpenOffice  y  LibreOffice)  sería 


Código  VBA  2.1:  Interpolación  con  forma  de  Lagrange  del  polinomio  interpolante.  Versión  1 . 


Function  Lagrangel  (X  ( )  ,  y(),  xx) 
dim  k, suma, pr,  n,  i 

Introducción  a  los  Métodos  Muméricos..  Walter  Mora  F. 

Derechos  Reservados  ©  2016  Revista  digital  Matemática,  Educación  e  Internet,  www.tec-digital.itcr.ac.cr/revistamatematica/ 


EJERCICIOS  49 


suma  =  0 

n  =  UBound(X)  rem  UBound  elije  el  mas  grande  subíndice  del  arreglo 

for  k=0  to  n 

rem  cálculo  de  cada  Ln,k(xx) 
pr  =  1 

for  i  =  0  to  n 
if  i  o  k  then 

pr  =  pr* (xx-X (i))/ (X(k)-X(i)) 

end  if 

next  i  rem  yk*Ln,k(xx) 
suma  =  suma  +  Y(k)*pr 

next  k 

Lagrangel  =  suma 

end  function 


Una  implementación  eficiente.  La  implementación  que  sigue,  calcula  lo  mismo  pero  con  la  mitad  de  operaciones. 
Consiste  en  calcular  cada  Lnk(x)  de  manera  escalonada,  construyendo  varios  polinomios  al  mismo  tiempo  con  los 
índices  disponibles. 


7  =  1 

Ln  (0)  = 

(x*  X\  )  /  (  (xq  Xj  )  ) 

Ln (1)  = 

{x*  -X0)/((X!  -x0)) 

7  =  2 

Ln  (0)  = 

(x*  -  Xi)(x*  -  x2)/((x0  -  Xi)(x0  -  X2)) 

Ln  (1)  = 

(x*  -  x0)(x  -  X2)/((Xj  -  X0)(X!  -  x2)) 

Ln  (2)  = 

(x*  -  X0)(x  -  Xi)/  ((x2  -  X0)(x2  -  xx)) 

7  =  3 

Ln (0)  = 

(x*  -  x1){x*  -  x2)(x*  -  x3)/((x0  -  xa)(xo  -  x2)(x0  -  x3)) 

Ln (1)  = 

(x*  -  x0)(x*  -  x2)(x*  -  x3)/((xi  -  x0)(xi  -  x2)(xi  -  x3)) 

Ln  (2)  = 

(x*  -  x0)(x*  -  Xi)(x*  -  x3)/((x2  -  x0)(x2  -  xi)(x2  -  x3)) 

Ln  (3)  = 

(x*  -  x0)(x*  -  x-l)(x*  -  x2)/((x3  -  x0)(x3  -  xx)(x3  -  x2) ) 

El  algoritmo  es. 


Algoritmo  2.3:  Forma  de  Lagrange  del  polinomio  interpolante 
Datos:  n  +  1  datos  {(xj, i/;)}i=0,1,...,h  con  los  x¡'s  distintos;  y  x* 
Salida:  Polinomio  interpolante  evaluado  en  x*,  i.e.  Pn  (x*) 

1  suma=  0; 

2  for  k  —  0  to?;  do 

3  |_  Ln(k)  —  1; 

4  for  j  —  1  ton  do 

5  for  k  —  0  to;  —  1  do 

6  Ln(k)  —  (x*  —  Xj)/ (xk  —  Xj)  ■  Ln(k) 

7  for  k  —  0  to/  —  1  do 

s  |_  Ln(j)  =  (x*  -  xk)/{xj  -  xk)  ■  Ln(j) 

9  for  k  —  0  to«  do 

ío  suma=  suma  +  yk  ■  Ln(k) 

u  return  suma 
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Como  se  ve,  en  el  primer  For  anidado  A:  va  de  0  a  j  —  1  luego  j  se  incrementa  (sería  el  índice  '  j  —  k'  que  debemos 
brincar  en  el  numerador)  y  j  pasa  al  denominador,  luego  se  vuelve  a  incrementar  y  pasa  al  numerador,  etc. 

Una  implementación  en  Basic  (OpenOffice  y  LibreOffice)  sería 


Código  VBA  2.2:  Interpolación  con  forma  de  Lagrange  del  polinomio  interpolante.  Versión  2. 


Function  Lagrange2  (X  ( )  ,  Y(),  xx) 

Dim  suma, j ,  k,  n 
Dim  Ln  () 

n  =  UBound(X) 

ReDim  Ln(0  to  n) 

For  k  =  0  To  n 

Ln (k)  =  1 

Next  k 

For  j  =  1  To  n 

For  k  =  0  To  j-1 

Ln (k) = (xx-X ( j ) ) / (X(k)-X(j)) *Ln (k) 

Next  k 

For  k  =  0  To  j-1 

Ln ( j )  =  (xx-X (k) ) / (X ( j ) —X ( k ) ) *Ln  ( j ) 

Next  k 
Next  j 

For  k  =  0  To  n 

suma=  suma+Y (k) *Ln (k) 

Next  k 

Lagrange2=  suma 

End  Function 


Cuaderno  completo  OpenOffice  O  LibreOffice  Las  funciones  Lagrangel  (X  ( ) ,  Y  ( ) ,  xx)  y  Lagrange2  (X  ( )  ,  Y  ( ) , 
xx) ,  reciben  los  vectores  X  =  (xq,Xi,. Y  —  {yo,yir-~,yn),  y  el  valor  a  interpolar  x*  =xx.  Ambas  funciones  de¬ 
vuelven  Pn(x*). 

La  función  Lagrange  la  llamamos  desde  la  subrutina  Main.  En  esta  subrutina  usamos  una  variable  rango  para  la 
selección  de  datos  que  hace  el  usuario.  En  Basic  los  rangos  inician  en  0,  por  lo  que  si  seleccionamos  n  +  1  datos,  n  = 
rango .  Rows .  getCount  ( )  -1 .  El  vector  X  y  el  vector  Y  los  inicializamos  con 

For  i=0  To  n 

X (i) =rango.getCellByPosition (0,  i) .Valué 
Y  (i) =rango.getCellByPosition (1,  i) .Valué 

Next  i 

Par  usar  esta  función,  vamos  a  usar  el  cuaderno  de  la  figura  (2.9).  El  usuario  debe  seleccionar  una  subtabla  y  hacer 
clic  en  el  botón.  Como  ya  indicamos,  en  Basic  de  OpenOffice  o  de  LibreOffice,  este  evento  lo  manejamos  así:  La  se¬ 
lección  se  recibe  en  una  variable  range .  Luego  pasamos  la  información  de  este  rango  a  los  vectores  X  ( )  e  Y  ( )  .  Luego 
llamamos  a  la  función  Lagrange2  (X,  Y,  xx)  .  Observe  que  no  es  necesario  pasar  los  valores  del  rango  a  los  vectores  X 
e  Y,  solo  lo  hacemos  porque  de  esta  manera  la  implementación  va  a  la  par  de  la  teoría. 


EJERCICIOS  51 


La  lectura  del  rango  y  la  lectura  del  valor  x*  la  hacemos  desde  la  subrutina  Main .  Una  vez  leídos  estos  datos,  se 
llama  a  la  la  función  Lagrange2  .  El  botón  tendrá  asociada  la  subrutina  Main. 


6 

7 

Valor  a  Forma  de 

Interpolar  Lagrange 

8 

X¡ 

yi 

x*  P(x*) 

I9 

0,0000 

i  -0,41615 

0,5  0,06250 

10 

0,500 

0,54030 

ii 

1,000 

1,00000 

12 

0,710 

0,83646 

M 

0,0000 

-0,41615 

■ 

lnterpolar_Lagrange 


Figura  2.9  Cuaderno  para  la  implementación  de  la  forma  de  Lagrange  del  polinomio  interpolante. 


0# 


Software: 


Cuadernos  LibreOffice  y  Excel 


Código  VBA  2.3:  Subrutina  Main  del  cuaderno  Lagrange 


Option  Explicit 

Sub  Main  'subrutina  principal 

'Cargar  la  biblioteca  BblMatematica 
BasicLibraries . loadLibrary ( "BblMatematica"  ) 
dim  i  'contador 

dim  rango  'tabla  de  datos 

dim  xx  'valor  a  interpolar 

dim  n  'filas  seleccionadas  desde  0  hasta  n 

dim  X  ( ) ,  y ( )  xi ' s  y  y i ' s 

'El  usuario  hace  una  selección  con  el  ratón 
rango=ThisComponent . getCurrentSelection ( ) 

'número  de  filas  seleccionadas 
n=rango  .Rows  .getCount  () -1  ' n+l=número  de  datos 

if  n<l  then 

msgbox  "Por  favor,  seleccione  los  datos" 

Exit  Sub 


end  if 

Redim  X ( 0  to  n)  'pasamos  los  datos  a  un  vector  por  comodidad 

Redim  Y  (0  to  n) 

For  i=0  to  n 

X (i) =rango . getcellbyposition (0, i) .Valué 
Y (i) =rango . getcellbyposition (1, i) .Valué 

next  i 

'Interpola  (la  function  'cells'  está  en  BblMatematica) 
xx  =  Cells ("C9") .valué 

Cells ( "D9" ) . Value=Lagrange2 (X ( ) , Y ( ) ,  xx) 

End  Sub 


¿Cómo  Imprimir  el  polinomio?,  Para  imprimir  el  polinomio  solo  habría  que  hacer  una  pequeña  modificación.  La  fun¬ 
ción  polyLagrange  (X,  Y)  devuelve  un  cadena  de  texto  ('String').  Usamos  la  función  Str  ( )  para  convertir  los  números 
a  cadena  de  texto  y  la  concatenación  del  texto  se  hace  con  el  operador  '+'. 
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Código  VBA  2.4:  Imprimir  el  polinomio  interpolante  en  la  forma  de  Lagrange 


Function  polyLagrange  (X  ( )  ,  Y  ( ) ) 

Dim  suma, j ,  k,  n 

Dim  Dn,  Nn,  Pn  'Variables  para  el  texto 

Dim  Ln  () 
n  =  UBound(X) 

ReDim  Ln(0  to  n,  1  to  2) 

For  k  =  0  To  n 
Ln (k, 1 )  ="" 

Ln (k, 2)  ="" 

Next  k 

For  j  =  1  To  n 

For  k  =  0  To  j-1 

Ln  (k,  1)  =Ln  (k,  1)  +"  (x-"+Str  (X  ( j)  )  +")  " 

Ln (k,  2) =Ln (k,  2) +" ( "+Str (X (k) ) +"-"+Str  (X  ( j) ) +" )  " 

Next  k 

For  k  =  0  To  j-1 

Ln ( j, 1) =" (x-"+Str(X(k) )+") "+Ln(j,l) 

Ln ( j, 2) =" ("+Str (X ( j) )+"-"+Str (X (k) )+") "+Ln ( j, 2) 

Next  k 
Next  j 

For  k  =  0  To  n 

Pn=Pn+"  +  "+Str (Y (k) )+"*"+Ln(k, 1)+"/ ("+Ln (k,  2) +" ) " 

Next  k 

'Depuración  —  =+,+-=-  (' ReplaceString'  está  en  BblMatematica) 
Pn=ReplaceString (Pn, "  +  -",) 

Pn=ReplaceString (Pn, "  -  ","+  -") 

PolyLagrange  =  "Pn(x)=  "  +  Pn 

End  Function 


Una  corrida  con  la  selección  {(1,-4),  (2,5),  (3,6)}  devuelve  el  polinomio 

P_n(x)=  -4*  (x-  2)  (x-  3)  /  (  (  1-  2)  (  1-3)) 

+5* (x-  1)  (x-  3) / ( (  2-  1)  (2-3)) 

+6*  (x-  2)  (x-  !)/((  3-  2)  (3-1)) 


Implementación  en  MATHEMATICA  En  MATHEMATICA  podemos  escribir  el  código  de  manera  más  directa.  El 
código  se  puede  escribir  usando  la  paleta  "Basic  Input" .  El  módulo  Lagrange  calcula  el  polinomio  interpolante. 


Para  hacer  una  corrida  ejecutamos  el  código 
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Lagrange [XY_] 
Module  { j , 


k. 


n,  X,  Y}, 


Xk  :=  Transpose  [XY]  Il  k+1]]; 
Yk_  :=  Transpose  [XY]  p,k+1]]; 
n  =  Length[XY]  -  1; 


Returnj^  ^  Yk  j~"j 


/  \ 
ti  x  -  Xj 


k=0 


\„o  *.  -  + 


n 


x  -  X-¡ 


Vj=k+1  xk-x3 


XY  =  {-0.1,  -0.19},  {0,  0.29},  {0.1,  -0.38}}; 
{ P [x]  =  Lagrange [XY] ,  P  [ 0 . 3 5 ]  } 


La  salida  es  {-9.5  (-0.1  +  x)  x  -  29.  (-0.1  +  x)  (0.1+  x)  -19.  x  (0.1+  x) ,  -7.08625}. 


EJERCICIOS 

2.38  Vamos  a  usar  la  tabla  del  ejemplo  (2.2)  para  interpolar  /( 0.25)  y  comparar  con  el  valor  correcto  /( 0.25)  — 
0.001200416039457... 


a)  Interpolar  /( 0.25)  con  tres  datos 

b)  Interpolar  /( 0.25)  con  cuatro  datos 

c)  Interpolar  /( 0.25)  con  toda  la  tabla 

2.39  En  este  ejercicio  vamos  a  hacer  la  representación  gráfica  de  una  función  /  conocida  y  su  polinomio  inter¬ 
polante  P?,(x). 


a)  Calcule  la  forma  de  Lagrange  del  polinomio  in¬ 
terpolante  Ps(x),  usando  la  tabla  de  datos  que 
está  a  la  derecha.  Hacer  la  representación  gráfica 
de  ambas  funciones  en  [0,2] 

b)  Repita  el  ejercicio  anterior  ampliando  la  tabla  a  15 
datos  con  el  mismo  paso  h  =  0.5. 


2.40  Considere  la  función  de  Runge,  f(x) 
a)  Considere  el  conjunto  de  datos 


1 

I+25X1' 


*  y  —  cos(3x2)  ln(x3  +  1) 

0  0 

0.5  0.0861805 

1  -0.686211 

1.5  1.31799 


X;  =  — 1 


+ 


i  ■ 


/(*;),  2  =  0,1, 


n  C  [-1,1], 


Hacer  la  representación  gráfica  de  los  polinomios  interpolantes  para  n  —  5,10,20.  Represente  estos  poli¬ 
nomios  conjuntamente  con  /. 


2.41  (Nodos  de  TChebyshev).  Usando  la  función  de  Runge  y  los  datos  {(+,/(+))}!=o,i,...,h  C  [—1,1]  con  = 
+  7r  ] ,  calcule  los  polinomios  interpolantes  para  n  =3,8,20  y  represente  estos  polinomios  conjuntamente 


eos 


V2«  +2 

con  /. 
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2.19 


Forma  modificada  y  forma  baricéntrica  de  Lagrange. 


La  implementación  se  centra  en  el  cálculo  de  los  u y.  Una  vez  calculados  estos  números,  armar  cada  polinomio 
interpolante  es  algo  directo.  Recordemos  que 


donde  ay 


P„(x)  =  £(x)¿-^-yfc 
k= 0  k 

1 

(Xk  ~  Xi)(xfc  ~  X2 )...(Xk  ~  Xk-l)(Xk  ~  Xk+l)...(xk  ~  Xn). 


9  En  el  algoritmo,  para  calcular  cada  0Jk,  separamos  el  denominador  en  dos  factores 


(xk  -  X1)(xk  -  x2)...(xk  -  Xk_í){xk  -  xkn)...(xk  -  xn). 

El  primer  factor  y  el  segundo  factor  en  el  denominador  de  cada  uno  de  los  oy's  se  calcula  con  el  ciclo 


wy  —  1,  para  cada  k  =  0,...,n 
For  j  —  1  To  n 

For  k  =  0  To  j  —  1 
wk  =  (xk  -Xj)wk 
For  k  =  0  To  j  —  1 
w.  —  (xj  —  xk)w. 


En  este  ciclo,  el  primer  For  anidado  produce  el  segundo  factor  en  el  denominador  de  cada  uno  de  los  LOk  s, 

zv0  =  (x0  -  x1)(x0  -  x2)  ■■  ■  (x0-xn), 

Wy  =  (*1  -  x2){xi  -  X3)  ■  ■  ■  (xx  -  Xn), 
zv2  —  (x2  -  x3)(x2  -  x4)  ■  ■■  (x2  -  xn), 

y  el  segundo  For  anidado  completa  el  producto, 

Wy  =  (; X\  —  Xo)  (x\  —  X2)  (xi  —  X3)  •  •  •  (xi  —  xn) , 

w2  —  (x2  —  x0)(x2  —  x3)(x2  —  x3)(x2  —  x4)  ■  ■  ■  (x2  —  xn),  etc. 

Finalmente,  cvk  —  \/wk. 


9  Si  usamos  nodos  de  TChebyshev,  el  cálculo  es  di  recto:  ay 
tiene  del  siguiente  cálculo: 


(— l)fcsen 


(2  k  +  1)7T 
2n  +2 


Este  último  resultado  se  ob- 


r  t(x) 

bm  - - y 

x^xk  (x  -  Xk) 

i(x)-e(k) 

mil  ,  \  / 

x^xk  (x  -  Xk) 

£'{xk). 


pues  £(xk)—0; 
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Algoritmo  2.4:  Cálculo  de  los  Pesos  Baricéntricos 


Datos:  n  +  1  nodos  distintos  {x¿};= ■ 
Salida:  Pesos  baricéntricos  cok,  k  =  0,1,..., n 
i  if  {x¡}¡= o  „  son  nodos  de  TChebyshev  then 
Nfc  _ _ (2fc  +  l)7T 


wk  —  (  — l)fcsen 


2n  +2 


k  —  0 


3  else 


for  k  =  0  to«  do 

L  wk  = 1 


6 

7 

8 

9 

10 


for  j  =  1  ton  do 

for  k  =  0  to;  —  1  do 

L  wk  =  ( xk  -  Xj)wk 

for  k  —  0  toj  —  1  do 

!_  wj  -  (■ Xj  -  Xk)wj 


11 

12 


for  k  =  0  ton  do 

L  v>k  =  1/wk 


13  return  w0,wlt...,wn 


Implementación  en  Basic  OpenOffice  o  LibreOffice.  Aquísolo  implementamos  la  función  ModificadaLagrange  (X,  Y,  x*)  . 

Esta  subrutina  recibe  los  vectores  X  =  (xQ,x\,...,xn),  Y  —  (i/o,y\, ...,yn),  y  el  valor  a  interpolar  x*  .  Esta  función  de¬ 
vuelve  P„  (x*).  El  código  de  esta  función  sería. 


Código  VBA  2.5:  Polinomio  Interpolante.  Forma  Modificada  de  Lagrange 


Function  ModificadaLagrange  (X  (),  Y  () ,  xval) 
Dim  suma,  j,  k,  n,  L 

Dim  W() 

n  =  UBound(X) 

ReDim  W  (0  to  n) 

For  k  =  0  To  n 

W  (k)  =  1 

Next  k 

For  j  =  1  To  n 

For  k  =  0  To  j-1 

W  (k)  =  (X  (k)  —X  ( j )  )  *W  (k) 

Next  k 

For  k  =  0  To  j-1 

W ( j )  =  (X ( j )  — X (k) )  *W(j) 

Next  k 
Next  j 

For  k  =  0  To  n 

W (k)  =1/W (k) 

Next  k 
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L=1 

For  k  =  0  To  n 

L= (xval-X (k) ) *L 

Next  k 


For  k  =  0  To  n 

suma  =  suma+Y  (k)  *W  (k)  /  (xval-X  (k)  ) 

Next  k 

ModificadaLagrange  =  L*suma 

End  Function 


EJERCICIOS 

2.42  Agregar  la  forma  modificada  de  Lagrange  al  cuaderno  que  contiene  la  función  Lagrange . 

2.43  Implementar  la  forma  baricéntrica  de  Lagrange  en  el  caso  general  y  el  caso  de  nodos  igualmente  espaciados. 


2.20 


Forma  de  Newton  del  polinomio  interpolante. 


La  forma  de  Newton  del  polinomio  interpolante  es 

P O)  =  f[xo]+f[xo,x1\(x-x0)+f[x o,xi,x2]{x  -  xQ)(x  -  x{) 
H - L  f[x0/...,xn}(x  -  x0)  ■  ■  ■  (x  -  xn _r). 


donde  los  coeficientes  están  en  la  diagonal  de  la  matriz  de  diferencias  divididas. 


<< 

o 

II 

* 

o 

y\ 

f[x  0,*l] 

vi 

f[x  1,X2\ 

f[x0,x1/x2\ 

y-i 

f[x  2,X3\ 

f\x  1,X2,X3\ 

Vn 

f[xn-i,xn] 

f[xn—2/xn— 

f[x  o,Xi,...,Xn] 


Para  la  implementación  de  la  fórmula  de  diferencias  divididas  de  Newton  es  conveniente  reescribir  el  polinomio 
como 


P(x)  —  C0/o  +  Clrl(x  -  x0)  +  C2/2(x  -  x0)(x  -  x1) 
H - h  Cn,n(x  -X0)---(X-  Xn-l), 


y  la  matriz  de  diferencias  divididas  como 
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Derechos  Reservados  ©  2016  Revista  digital  Matemática,  Educación  e  Internet,  www.tec-digital.itcr.ac.cr/revistamatematica/ 


EJERCICIOS  57 


<< 

o 

II 

o 

o 

o 

1/1 

Ci,i 

V2 

C2,l 

Q,2 

V3 

C.3,1 

Q,2 

Vn 

Cn,  i 

Cn,  2 

Para  el  cálculo  de  los  C¡/s  usamos  la  fórmula  recursiva: 


Q,0 

CN 


y i  —  0,2,. ..,n 
Qrj— i  — 

Xi  -  Xi-j 


j  =  l,2,...n,  i  —  j, 2,..., n 


(2.9) 


Algoritmo  2.5:  Diferencias  Divididas  de  Newton 
Datos:  {(x¿,y¿)}¿=0,l,...,n  con  los  x¡'s  distintos. 

Salida:  Coeficientes  del  polinomio  interpolante: C00,  C,  1,...,C„  „ 

1  for  i  —  1  ton  do 

2  L  C,o  =  Vi 

3  ; 

4  for  j  —  1  ton  do 

5  for  i  =  y  ton  do 

C  -  C 

c  =  S,j-i 

6  V  X[  -  x¡_j 

7  return  C00,  Cxl,...,Cnn 


Para  evaluar  el  polinomio  interpolante  en  x*  se  requiere  los  coeficientes  Cj  j  y  los  nodos  Xq,  ...xn. 


Algoritmo  2.6:  Evaluar  la  forma  de  Newton  del  polinomio  interpolante 
Datos:  Nodos  Xq,X\ ,...,x)n,  coeficientes  Co,Ci,...,Cn  y  x* 

Salida:  Pn(x*) 

1  suma  =  Co ; 

2  factor  =  1 ; 

3  for  j  —  1  ton  do 

4  factor=factor-(x*  —  Xy_i); 

5  s u  m a  —  s ti  m  a + C,  factor; 

6  return  suma 


Implementación  en  Basic  de  OpenOffice  o  LibreOffice.  Las  funciones  DDNewton  usa  dos  vectores  ci  y  C2 .  En 

C1  se  almacena  la  columna  actual  y  en  C2  la  nueva  columna. Cada  elemento  de  la  diagonal  C2  ( j )  se  almacena  en  el 
vector  Ci  j .  Para  recalcular  C2  se  actualiza  C1 .  En  vez  de  poner  C1=C2  se  usa  un  For  para  hacer  la  copia  componente 
a  componente  (en  las  nuevas  versiones  de  OpenOffice  y  LibreOffice  esto  puede  haber  cambiado  y  se  podría  poner 
directamente  C1=C2  de  manera  segura). 
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Código  VBA  2.6:  Matriz  de  diferencias  divididas  de  Newton  e  Interpolación 


Function  DDNewton  (X  ( )  ,  Y  ( ) )  As  Variant 

Dim  i,  j,  n,k 

Dim  Cl()  As  double,  C2()  As  double,  Cij()  as  double 

n  =  UBound(X) 

ReDim  C1  (0  to  n) 

ReDim  C2(0  to  n) 

ReDim  Ci  j  (0  to  n) 

'continua  en  la  pág  siguiente 

For  i  =  0  To  n 

C1  (i)  =  Y  (i) 

Next  i 

Ci  j  (0)  =Y (0) 

For  j  =  1  To  n 
For  i  =  j  To  n 

'Calcula  la  columna  j 

C2  (i)  =  (CI  (i)  -  CI  (i  -  D)  /  (X  (i)  -  X  (i  -  j)) 

Next  i 

Cij  (j)=C2  ( j) 

'Actualiza  CI 

For  k  =  0  To  n 

CI  (k)  =  C2(k) 

Next  k 
Next  j 

DDNewton  =  Ci j 0 

End  Function 


Function  EvalDDNewton  (Ci  j  ( )  ,  X  ( )  ,  xx)  As  Double 
Dim  j,  n,  suma,  factor 
suma=Ci j (0) 
factor=l 
n  =  UBound(Cij) 

For  j  =  1  To  n 

factor=f actor* (xx-X ( j-1 ) ) 
suma  =  suma+Ci j ( j ) *factor 
Next  j 

EvalDDNewton=suma 

End  Function 


Cuaderno  DDNewton  Como  en  la  implementación  de  la  forma  de  Lagrange,  aquí  también  tenemos  los  datos  en  dos 
vectores  X  e  Y.  La  función  DDNewton  (X,  Y)  devuelve  un  vector  con  la  diagonal  de  la  matriz  de  diferencias  dividi¬ 
das:  Co,Ci,...7Cn.  Para  evaluar  la  forma  de  Newton  implementamos  la  función  EvalDDNewton  (C(),X(),x*)  usando 
el  algoritmo  (2.6).  También  se  incluye  la  función  PolyDDNewton  (C  ( ) ,  X  ( ) )  que  devuelve  el  polinomio  Pn  (x)  y  la  sub¬ 
rutina  MatrizDDNewton  (X  () ,  Y  () ,  columna,  fila)  para  imprimir  la  matriz  de  diferencias  divididas  desde  la  celda 
(columna, fila) . 


Para  ejecutar  estas  macros,  usamos  como  referencia  el  cuaderno  de  la  figura  (2.10). 
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Ó 

7 

Valor  a 
Interpolar 

Forma  de 
Newton 

8 

xi 

yi 

X* 

9 

1,0000 

1,00000 

0,5 

0,25000 

10 

0,000 

0,00000 

11 

-1,000 

1,00000 

Pn(x)  =  1+  1*(x 

-  1)+  1*(x-  1  )(x  -  0) 

12 

2,000 

16,00000 

13 

3,0000 

81,00000 

1,00000 

14 

0,00000 

1,00000 

15 

1,00000 

-1,00000 

1,00000 

Figura  2.10  Cuaderno  para  la  implementación  de  la  forma  de  Newton  del  polinomio  interpolante. 


El  botón  ejecuta  la  subrutina  Main . 


O# 


Software: 


Cuadernos  LibreOffice  y  Excel 


Código  VBA  2.7:  Subrutina  Main  del  cuaderno  DDNewton 


Sub  Main  REM  subrutina  principal 

'Cargar  la  biblioteca  BblMatematica 
BasicLibraries . loadLibrary ( "BblMatematica"  ) 

rem  function  cells  está  en  BblMatematica 
dim  i  'contador 

dim  rango  'tabla  de  datos 

dim  xx  'valor  a  interpolar 

dim  n  'filas  seleccionadas  desde  n=0  hasta  n 

dim  X(),  y  (),  C()  'xi's  y  yi's,  C  recibe  la  diagonal  de  matriz  de  diferencias  divididas 

'El  usuario  hace  una  selección  con  el  ratón 
rango=ThisComponent . getCurrentSelection ( ) 

'número  de  filas  seleccionadas 
n=rango.Rows.getCount  () -1  ' n+l=numero  de  datos 

if  n<l  then 

msgbox  "Por  favor,  seleccione  los  datos" 

Exit  Sub 

end  if 

Redim  X(0  to  n)  'pasamos  los  datos  a  un  vector  por  comodidad 

Redim  Y  (0  to  n) 

ReDim  C  (0  To  n) 

For  i=0  to  n 

X (i) =rango . getcellbyposition (0, i) .Valué 
Y (i) =rango . getcellbyposition (1, i) .Valué 

next  i 

'Leer  xx 

xx=Cells ("C9") .Valué 

'C  recibe  la  diagonal  de  la  matriz  de  diferencias  divididas 
C=  DDNewton (X,  Y) 

'Interpolar  f (xx) .  la  función  'Cells'  está  en  BblMatematica 
Cells  (  "D9" ) .Valué  =  EvalDDNewton (C, X,  xx) 
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'imprimir  Pn(x) 

Cells  ("Eli") .String  =  PolyDDNewton (C, X) 

'imprimir  la  matriz 

Cali  MatrizDDNewton  (X,  Y,  4, 12)  'Iniciar  en  "E13" 

End  Sub 


Para  imprimir  la  matriz  de  diferencias  divididas  se  modifica  la  función  DDNewton. 


Código  VBA  2.8:  Imprimir  matriz  de  diferencias  divididas  y  el  polinomio  en  la  forma  de  Newton 


Sub  MatrizDDNewton (X () ,  Y (), columna,  fila) 

Dim  i,  j,n,  k,  Hoja 
Dim  Cl(),  C2(),  Cij() 
n  =  UBound(X) 

ReDim  C1  (0  to  n) 

ReDim  C2  (0  to  n) 

ReDim  Cij  (0  to  n) 

For  i  =  0  To  n 

Cl(i)  =  Y ( i )  'Imprime  primera  columna.  'Cells'  está  en  Bblmatematica 
Cells (columna,  fila+i) .Value=Cl(i) 

Next  i 

Cij (0) =Y  (0) 

For  j  =  1  To  n 

For  i  =  j  To  n  'Imprime  la  columna  j 
C2  (i)  =  (C1  (i)  -  C1  (i  -  D)  /  (X  (i)  -  X  (i  -  j)) 

Cells (columna+j,  fila+i) .Value=C2(i) 

Next  i 

Cij  ( j)=C2 ( j) 

For  k  =  0  To  n 

Cl(k)  =  C2(k) 

Next  k 
Next  j 
End  Sub 

'Imprimir  polinomio  en  la  forma  de  Newton  - 

Function  PolyDDNewton  (Cij  (),  X  ()  )  As  String 
Dim  j,n 

Dim  Pn,  factor 
Pn=  Str (Cij (0) ) 
factor=" " 
n  =  UBound(Cij) 

For  j  =  1  To  n 

factor=factor+" (x  -"+Str (X ( j-1 ) ) +") " 

Pn  =  Pn+"+"+Str (Ci j ( j) ) +"*"+factor 

Next  j 

'Reemplazar  —  =  +,+-  =  ' ReplaceString'  está  en  Bblmatematica 
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Pn=ReplaceString (Pn,  "  + 
Pn=ReplaceString (Pn,  "  -  -") 

PolyDDNewton="Pn (x)  =  "  +  Pn 

End  Function 


EJERCICIOS 

2.44  Vamos  a  usar  la  tabla  (1.1,  pág  3)  para  interpolar  /( 0.25)  y  comparar  con  el  valor  correcto  /( 0.25)  =  0.001200416039457... 


a)  Interpolar  /( 0.25)  con  tres  datos 

b)  Interpolar  /( 0.25)  con  cuatro  datos 

c)  Interpolar  /( 0.25)  con  toda  la  tabla 

2.45  En  este  ejercicio  vamos  a  hacer  la  representación  gráfica  de  una  función  /  conocida  y  su  polinomio  inter¬ 
polante  P3(x). 


a)  Calcule  la  forma  de  Newton  del  polinomio  inter¬ 
polante  ^(x),  usa-ndo  la  tabla  de  datos  que  está 
a  la  derecha.  Hacer  la  representación  gráfica  de 
ambas  funciones  en  [0,2] 

b)  Repita  el  ejercicio  anterior  ampliando  la  tabla  a  15 
datos. 

1 

2.46  Considere  la  función  de  Runge,  f{x)  —  - — ^  2 . 
a)  Considere  el  conjunto  de  datos 


X 

y  =  cos(3x2)  ln(x3  +  1) 

0 

0 

0.5 

0.0861805 

1 

-0.686211 

1.5 

1.31799 

5,10,20.  Represente  estos  poli- 
calcule  los  poli- 


Xi  =  -1  +  i  ■  y¡  =  /(x¿),  i  =  0,1 . n  C  [-1,1]. 

Hacer  la  representación  gráfica  de  los  polinomios  interpolantes  para  n  - 
nomios  conjuntamente  con  /. 

b)  (Nodos  de  Chebyshev).  Usando  los  datos  {(xi,f(xi))}i=oiir_m>n  C  [—1,1]  con  x¡  —  eos  ^ ^  ^  tí 

nomios  interpolantes  para  n  —  3,8,20  y  represente  estos  polinomios  conjuntamente  con  /. 


2.21 


Trazadores  cúbicos 


Recordemos  que  un  trazador  cúbico  S  es  una  función  a  trozos  que  interpola  a  /  en  los  n  +  1  puntos  (x'o,i/q)/  {x\,y  \ ), 
( X2,yi ),  •  • .,  {xn,yn)  (con  a  =  xo  <  Xi  <  ...  <  xn  —  b).  S  es  definida  de  la  siguiente  manera, 

ÍS0(x)  si  i  £  [i0Pi], 

Si(x)  si  xe  [xi,x2], 

.  . 

Sn-l(x)  SÍ  xe[xn-1/Xn], 

Donde,  S¡(x)  —  a¡  +  b¡(x  —  x¡)  +  c,-(x  —  x¡)2  +  d¡(x  —  x,-)3  para  i  —  0,1,. .  .n  —  1. 
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Para  el  cálculo  de  los  coeficientes  a¡,  bu  Ci  y  d¡  usamos  el  algoritmo 


Algoritmo  2.7:  Trazador  cúbico  con  frontera  natural 


Datos:  (x0ry0),  (*i,yi),. . .  (x„,yn)  conx0  <x\  <  •••  <  xn. 
Salida:  Coeficientes  ay, bj, Cj,dj,  para  cada  j  =  0, 1, . . .  n  —  1. 

1  f or  ;  =  0, 1, ...  n  —  1  do 

2  Hj  Xj- |_i  Xy, 

3  |_  0y  =  yy; 


4 

5 

6 


—  y«/ 

for  j  =  1, . . .  n  —  1  do 

Oij  —  •  (fl-y+i  «y) 

/ 


7  /0  =  1,  y0  =  0,  z0  =  0; 

8  ln  —  zn  =  0,  cn  =  0; 


9 

10 

n 

12 


for  i  =  1,2,... ,n  —  1  do 

k  =  2(xi+ 1  -  x¿_i)  -  hi_x]ii_X) 
]¿i  hj/l{, 

zi  =  (cci-hi_1Zi_1)/li; 


CLj-i). 


13  for  j  =  n  —  \,n  —  2,. . .,0  do 


14 

15 

16 


c;  zj  lijcj+ 1/ 

fc;  =  (fly+1  -  -  hj(c¡+ 1  +  2c;-)/3; 

dy  =  (cy+i  —  Cy)/  (3/Zy); 


17  return  cij,bjrCj,dj,  j  —  0,1,. .  .n  —  1. 


Implementación  en  Basic  con  OpenOffice  o  LibreOffice.  La  función  TrazadorCubico  (x  ( ) ,  y  ( ) )  recibe  los  datos 
en  dos  vectores  X,  Y  y  devuelve  una  matriz  con  los  coeficientes  de  las  polinomios  Sj(x). 


Código  VBA  2.9:  Trazadores  Cúbicos  (Cubic  Splines) 


Function  TrazadorCubico  (X  ()  ,  Y(),  xx,co,fi) 

Dim  i,  j,  n,  suma 

DimaO,  b  () ,  c(),  d(),  h(),  1(),  mu(),  z(),  alfa() 

Dim  S() 

n  =  UBound(X) 

ReDim  a(0  to  n) 

ReDim  b  (0  to  n) 

ReDim  c(0  to  n) 

ReDim  d ( 0  to  n) 

ReDim  h ( 0  to  n) 

ReDim  1(0  to  n) 

ReDim  mu(0  to  n) 

ReDim  z  ( 0  to  n) 

ReDim  alfa(0  to  n) 

Redim  S  (0  to  n-1,  0  to  3) 
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For  j  =  0  To  n  -  1 

h  ( j)  =  X  ( j  +  1)  -  X ( j) 
a ( j)  =  Y ( j) 

Next  j 

a  (n)  =  Y  (n) 

For  j  =  1  To  n  -  1 

alfa  ( j )  =  3  /  h  ( j)  *  (a  ( j  +  1)  -  a  { j) )  -  3  /  h(j  -  1)  *  (a  ( j)  -  a  ( j  -  1)) 

Next  j 

1(0)  =  1 
mu ( 0 )  =0 
z  (0)  =  0 
1  (n)  =1 
z (n)  =0 
c (n)  =  0 

For  i  =  1  To  n  -  1 

1  (i)  =  2  *  (X  (i  +  1)  -  X  (i  -  1))  -  h  (i  -  1)  *  mu  (i  -  1) 
mu  (i)  =  h  (i)  /  l(i) 

z(i)  =  (alfa  (i)  -  h  (i  -  1)  *  z  (i  -  1))  /  1(1) 


Next  i 


For  j  =  n  -  1  To  0  Step  -1 

c ( j )  =  z  ( j )  -  mu ( j )  *  c ( j  +  1) 

b(j)  =  (a  ( j  +  1)  -  a  ( j )  )  /  h  ( j )  -  h(j)  *  (c(j  +  1)  +  2  *  c  ( j ) )  /  3 
d(j)  =  ( c  ( j  +  1)  -  c  ( j) )  /  (3  *  h(j) ) 

Next  j 

' Coeficientes 
For  j  =  0  To  n  -  1 
S(j,0)=a(j) 

S  ( j,  1)  =b  ( j) 

S(j,2)=c(j) 

S  ( j,  3)  =d(  j) 

Next  j 

'Calcula  valor  interpolado  con  el  Sj  (x)  adecuado. 

For  j  =  0  To  n  -  1 

If  X ( j ) <=xx  AND  xx<=X ( j+1 )  Then 

suma  =  S(j,0)+S(j,l)*  (xx-X  (j))+S(j,2)*(  (xx-X  (j))A2)+S(j,3)*(  (xx-X  ( j) )  A3) 

End  If 


Next  j 
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TrazadorCubico=suma 

End  Function 


Para  ejecutar  estas  macros,  usamos  como  referencia  el  cuaderno  de  la  figura  (2.11). 


y  =  S(x) 


A 

/  \  Columna  B 


lnterpolar_T  razadores_Cúbicos 


9 

-2,00 

-0,84 

0.5 

0,25000 

10 

-1,00 

0,28 

11 

0.00 

1,00 

1 

12 

1,00 

0,28 

13 

2,00 

-0,84 

L_ 

■ 

Coeficientes 


-0.839071529076452+  1.1 3651 285532097*(x+2)+  0*((x+2)A* -0,839071 5  1,1365129 

0.283662185463226+  1.0951754329771*(x+1)-4  133742234>0, 2836622  1,0951754 
1+  0*(x-  0)-1.05383801063322*((x-  0^2)+  0.3375001 960964M  .0000000  0,0000000 
0.283662 1 85463226- 1 .095175432977 1  *(x- 1)-4- 1337422343?  0,28366  -1,09518 


0,0000000  -0,0137791 
-0,0413374  -0,3375002 
-1,0538380  0,3375002 
-0,04  0,01 


Figura  2.11  Cuaderno  para  la  implementación  de  el  trazador  cúbico. 


El  botón  ejecuta  la  subrutina  Main . 


Software: 


Cuadernos  LibreOffice  y  Excel 


Código  VBA  2.10:  Subrutina  'Main'  del  cuaderno  TrazadorCúbico 


Option  Explicit 
Sub  Main 

'Cargar  biblioteca  de  funciones  especíales :  Cells,  ReplaceString,  CleanRange,  etc. 
BasicLibraries . loadLibrary ( "BblMatematica"  ) 


Dim  columna,  fila 

Dim  rango 

Dim  X(),  Y(), S() 

Dim  n,  i,  j,  xx 

'Rango  selecionado  por  el  usuario 

rango  =  ThisComponent . getCurrentSelection () 

n  =  rango  .Rows  . getCount  () -1  ' n+l=número  de  datos 

'Limpiar  celdas  de  cálculo  anterior 
CleanRange  (4,  11,  10) 

'CleanRange  (20,  20  ,  40) 

If  n<2  Then 

MsgBox  "Por  favor,  seleccione  los  datos." 

Exit  Sub 


End  If 
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ReDim  X  (0  To  n) 

ReDim  Y  (0  To  n) 

Redim  S  ( 0  to  n-1,  0  to  3)  'Coeficientes  del  trazador  cúbico 

For  i=0  To  n 

X  (i) =rango . getCellByPosition (0,  i) .Valué 
Y (i) =rango . getCellByPosition (1,  i) .Valué 

Next  i 

xx  =  Cells ( "C9" ) .Valué 

'Interpolar  con  Sj(xx).  Imprime  coeficinets  en  columna, 
columna  =  6  :  fila=ll  'desde  G12 

Cells ( "D6" ) .Valué  =  TrazadorCubico (X,  Y,  xx,  columna,  fila) 

'Imprimir  S (x)  desde  columna  =  4  :  fila=ll  'desde  E12 
columna  =  4  :  fila=ll  'desde  E12 

ImprimirPolinomioTrazadorCubico (X ( ) ,  Y(),  columna,  fila) 

'Graficar  S  (x) .  Los  datos  están  anclados  en  "A9" 

'Gráfica  los  datos  con  la  opción  CubicSplines 
GraficarTrazadorCubico (0, 8,  n) 

End  Sub 


EJERCICIOS 

2.47  Implementar  una  función  para  imprimir  cada  uno  de  los  polinomios  S,(x). 

2.48  Implementar  una  función  para  hacer  la  representación  gráfica  de  S  (x)  (Ver  apéndice). 

2.49  Verifique  su  implementación  con  el  ejemplo  (2.22). 

2.50  Implementar  una  función  para  evaluar  S (x* ) . 

2.51  Usar  la  implementación  para  interpolar  /(0. 27)  y  /( 0.554);  usando  la  tabla 

Xj _ Vi 

xg  =  0  0.656 

X\  =  0.2  -0.086 

X2  =  0.4  0.68 

*3  =  0.6  -1.799 


Versión  más  reciente  (y  actualizaciones)  de  este  libro: 
http://www.tec-digital.itcr.ac.cr/revistamatematica/Libros/ 
http://dl.dropbox.eom/u/57684129/revistamatematica/Libros/index.html 
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fila 


INTERPOLACIÓN.  ASPECTOS 
TEÓRICOS. 


Un  problema  de  interpolación  polinomial  se 
especifica  como  sigue:  dados  n  +  1  puntos 
(xo/yo),(xi,yi),.../(xn,yn),  siendo  todos  los  x  ;'s  dis¬ 
tintos,  encontrar  un  polinomio  Pn{x)  de  grado  <  n  tal 
que 


Pn(xj)  —  y  i,  i  —  0,1,2, ...,n  (3.1) 


Figura  3.1  P„(x) 


Teorema  3.1  (Existencia  y  unicidad). 


Sean  XQ,X\,...,xn  números  reales  distintos  y  n  >  0.  Si  t/o , y  ] ,  ■■■,}) n  son  números  reales  arbitrarios,  existe  un  único 
polinomio  Pn,  de  grado  menor  o  igual  a  n  tal  que  P„(x¡ )  —  y¡,  i  —  0,1 


Prueba.  Unicidad:  Sean  Pn  y  Qn  son  dos  polinomios  interpolantes  de  grado  a  lo  sumo  n  tales  que  Pn  (x¡)  =  Qn(x¡ )  = 
y  i,  i  —  0,1,2,  Entonces  el  polinomio  R  (.r)  —  Pn(x)  —  Qn  (x)  es  de  grado  a  lo  sumo  n  y  tiene  a  lo  sumo  n  ceros  o 
es  el  polinomio  nulo  (teorema  fundamental  del  algebra).  Como  R(x)  tiene  n  +  1  ceros,  debe  ser  el  polinomio  nulo, 
es  decir,  Pn(x)  =  Qn(x). 

Existencia:  La  prueba  es  por  inducción. 

Para  n  =  0  existe  un  polinomio  Po  de  grado  a  lo  sumo  0  tal  que  Pq(xq)  —  i/q  .  Por  supuesto,  se  trata  del  polinomio 
nulo. 

Supongamos  que  el  resultado  es  cierto  para  n  —  1  >  0,  es  decir,  existe  P,¡_i  de  grado  a  lo  sumo  n  —  1  tal  que 
P„_l(*i)  =  y  i,  i  —  0,1  —  1.  Consideremos  el  polinomio 


Pn(x)  —  Pn-i(x)  +an  (x  —  *o)(x  —  x\)...{x  —  xn-i),  a„  una  constante. 


n— 1 

Como  (x  —  Xj )  es  de  grado  n,  P„  tiene  grado  a  lo  sumo  n  (algún  coeficiente  podría  ser  nulo).  Solo  falta  verificar 

M 

que  se  puede  elegir  la  constante  an  tal  que  Pn (x¿)  —  yu  i  —  0/1 En  efecto,  por  hipótesis 


Pn(xi)  =P„_i(x¿)  +0  —  i/¡  si  i  —  0,l,...,n  —  1. 

Ahora,  evaluando  Pn  en  xn  se  prueba  que  existe  una  constante  an  adecuada  para  que  Pn(xn)  —  yn, 


n— 1 

■Pn— 1  (^n)  H-  fin  (%n  Xj)  —  J/n 

7=0 

Observe  que  TYj=o(xn  —  x¡)  ^  0. 


y»  Pn—l(xn) 

ÜJ-^Xn-Xj). 


Existen  varias  formas  para  el  polinomio  interpolante.  JR,¡+i  [x]  es  el  conjunto  de  polinomios  con  coeficientes  reales, 
de  grado  <n  y  tiene  dimensión  n  +  1.  Si  Q  =  {  Bq,  f>2,  P’n }  es  una  base  para  R„+/  [x],  entonces  el  polinomio 
interpolante  Pn  se  puede  escribir  en  la  base  O  como 


Pn(x)  —  fliB0(x)  + ...  +  anBn(x) 


Aunque  el  polinomio  interpolante  es  único,  la  forma  (antes  de  simplificar)  puede  cambiar  según  la  base  que  se  tome. 
Si  tomamos  la  base  {l,x,...,x"}  de  R)I+i[x],  entonces 


Pn{x)  =  a0  +  CliX  +  ...  +  anxn 

Como  P„(x/)  =  \ji,  i  —  0,1,..., «,  tenemos  el  sistema  de  ecuaciones  lineales 


/  1  *0  X2  . 

1  x3  x\ 

•  *o\ 

.  x1 

/  «0  \ 
«1 

í yo  \ 

y  i 

\  1  x„  xl  ■ 

■  X”  / 

V  fin ) 

v  yn  ) 

(3.2) 


La  matriz  asociada  V„  del  sistema  3.2  se  llama  matriz  de  Vandermonde.  Las  columnas  de  Vn  conforman  un  conjunto 
de  vectores  linealmente  independiente  (ejercicio  3.1).  Por  lo  tanto  Det(V„)  ^  0.  Además  (ver  3.2), 

Det(V„)  =  (x/  Xj) 

0  <i<j<n 


Por  ejemplo. 


Det(l/3)  =  (x0  -xx)(x0  -x2)(xi  -x2)(x0  -  x3)(xa  -  x3)(x2  -  x3) 


Los  coeficientes  aQ,a\,...,an  se  pueden  obtener  por  regla  de  Cramer.  El  cálculo  del  polinomio  interpolante  con  este 
método  es  muy  costoso,  además  de  que  los  coeficientes  a¡  no  siempre  se  calculan  tan  exactos  como  uno  quisiera 
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(resolviendo  el  sistema). 


Para  los  datos  (xo/3/o)/  Í-U  d/i )  la  matriz  de  Vandermonde  es 

Usando  la  regla  de  Cramer,  P(x)  —  +  — — —  x. 

X\  —  Xq  X\  —  Xq 


1  x0  \ 
1  xi  ) 


3.1 


Forma  de  Lagrange  para  el  polinomio  interpolante. 


La  forma  de  Lagrange  del  polinomio  interpolante  se  obtiene  usando  la  base  Lno(x),...,Ln/n(x )  donde  L„  \(x)  — 

JL  X  —  X;  „ 

J  | - .  En  este  caso 


i=tXk~Xi 


Pn(x)  =  a0L„ro(x)  +  n1Ln>1(x)  +  ...  +  anLn>n(x) 


Como  P„(xí)  =  y¡,  i  —  0,1 y  como  L„;(x¡)  =  ó¡j  (delta  de  Kronecker),  tenemos  el  sistema  de  ecuaciones  lineales 


l1 

0  0  . 

.  ox 

( ^ 

( yo  \ 

0 

1  0  . 

.  0 

«1 

yi 

V  o 

0 

•  1  / 

\  Cln  / 

\  yn  / 

(3-3) 


de  donde  a¡  =  y¡,  i  —  0,1 


3.2 


Forma  de  Lagrange  modificada  y  forma  baricéntrica  de  Lagrange. 


La  forma  de  Lagrange  del  polinomio  interpolante  es  atractiva  para  propósitos  teóricos.  Sin  embargo  se  puede  ree¬ 
scribir  en  una  forma  que  se  vuelva  eficiente  para  el  cálculo  computacional.  Una  exposición  más  extensa  se  encuentra 
en  ([2]) 

Forma  Modificada. 


co 


(n) 


Pn(x)=i(x)Ei-±—yj 


■  n  X  ~  X; 
;=0  / 


(3.4) 
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Forma  Baricéntrica. 


Vi 


si  X  =  x¡, 


Pn(x)  < 


LO 


(n) 


Vk 


k=0X  Xk 

n  m(n) 

\  '  Wk 

toX~Xk 


si  X  7^  X; 


£{x)  y  se  definen  así:  Supongamos  que  tenemos  n  +  1  nodos  distintos  XQ,Xi,...,xn.  £(x)  —  (x  —  x¡)  y  defin¬ 
ido 

irnos  los  pesos  baricéntricos  como 


co. 


(0)  =1  o;(")  =  fí _ 1 _ 

0  '  Wk  1  1  y.  _  y .  ' 

i= o  x'  xk 


¥k 


^(n)  n  {*) 

La  forma  modificada  se  obtiene  notando  que  Ln  j-(x)  =  — - —  ]^[(x  —  Xj)  —  — - —  £{x). 

JC  JC  1c  j  Q  ^  ^ 

n 

La  forma  baricéntrica  se  obtiene  dividiendo  el  polinomio  interpolante  por  ^  Ln¿(x)  =  1  (es  decir,  el  polinomio  in- 

k= 0 

terpolante  de  /(x)  =  1  es  Pn  (x)  =  1 ),  en  efecto 


n  Y^.yk  Ln.k(x) 

P>ÁX)  =  ¿  VkLn,k{x)  =  ^ - 


k=0 


n  ^ (n)  ii 


y~!  Ln/k{^ 


k= 0 


n  ,  ,(n) 
a4 


k= 0 


;=o 


3/fc 


(n) 


k=0  x  Xk  j= o 


k=0X~Xk 

n  .  ,(n) 
y-  ¿*4 


si  X  7^  xk. 


Esta  forma  se  llama  "forma  baricéntrica"  de  Lagrange  pues,  aunque  no  todos  los  "pesos"  son  necesariamente  posi¬ 
tivos,  expresa  este  polinomio  como  un  promedio  ponderado  de  los  y'¡. s. 


Nodos  de  TChebyshev. 


En  el  caso  de  que  podamos  escoger  los  nodos,  la  elección  son  los  nodos  de  TChebyshev.  En  este  caso  el  cálculo  de  los 
pesos  baricéntricos  es  muy  sencillo  ([2],  p.249), 

(n)  /  -<\k  (2k  +  l)n 

wy>  —  (-1)  sen - 


2  n  +  2 
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3.3 


Forma  de  Newton  para  el  polinomio  interpolante. 


La  forma  de  Newton  del  polinomio  interpolante  se  obtiene  usando  la  base  Bq(x), 


Bn(x)  donde 


BoO) 

=  1 

Bi(x) 

=  (x  -  x0) 

B2(x) 

=  (x-x0)(x-x1) 

Bn(x) 

H 

1 

o 

* 

1 

II 

■■(x-xn- 1) 

Tenemos  entonces 


Pn(x )  =  a0  +  a\(x  -  x0)  +n2{x  -  x0)(x  -  x\)  -\ - h  an{x  -  x0)  •  •  •  (x  -  xn_i). 


Como  Pn{xi)  —  y i,  i  =  0,l,...,n  tenemos 


Pn(x  o)  =  a0  =1/0 

Pn(xi)  =  a0  +  a1(x1-x0)  =yi 

Pn(x2 )  =  ClQ  +  «1  (x2  —  Xq)  +  a2{x2  —  Xq)  (x2  —  Xl)  —  y2 

Pn(x„ )  =  a0+a1(xn-x0)  +  ...+an(xn-x0)---(xn-xn_1)  =yn 


Como  el  sistema  es  triangular,  podemos  despejar  directamente  cada  a¡.  Para  obtener  una  fórmula  recursiva  un  poco 
más  limpia,  definimos  Qo  —  cío  y 

Qj(x)  =  a0  +  ai(x  -  x0)  +  ...  +  cij(x  -  x0)  ■  ■  ■  {x  -  Xj-i),  j  —  -1 

De  esta  manera. 


ao  —  y  o 

yi-Qo(*i) 

a\  =  - 

X\  —  x0 

a2  =  y2-Qi{x2) 

(x2-x0)(x2-xi) 

a  _  yn~  Qn— l\Xn) 

(Xn  -  X0)  ■  ■  ■  (Xn  -  Xn-i) 
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Obtenemos  una  fórmula  recursiva:  «o  —  3/0  y  ak  — 


Vk  -  Qfc-ifa) 

(xk-x0)---(xk-xk_1y 


k  —  1 


Diferencias  divididas.  Si  =  f(xf),  la  fórmula  anterior  nos  muestra  que  cada  %  depende  de  xq,X\,...,x^.  Desde 
muchos  años  atrás  se  usa  la  notación  an  —  f[xo,x\,...xn]  para  significar  esta  dependencia. 

Al  símbolo  f[x o,Xi,...xn]  se  le  llama  diferencia  divida  de  /. 

Si  consideramos  f[x Q,xi,...xn]  como  una  función  de  n  +  1  variables,  entonces  es  una  función  simétrica,  es  decir,  per¬ 
mutar  las  variables  de  cualquier  manera  no  afecta  el  valor  de  la  función.  Esto  es  así  porque  el  polinomio  que  interpola 
los  puntos  { (x,',y¿)}¡=o,...,H  es  único,  por  lo  tanto  sin  importar  el  orden  en  que  vengan  los  puntos,  el  coeficiente  prin¬ 
cipal  siempre  es  an  —  f[x  o,*i, ...*„]. 

El  nombre  diferencia  divida  viene  de  la  agradable  propiedad 


Teorema  3.2 


La  diferencia  dividida  f[x Q,x\,...xn]  satisface  la  ecuación 


f[x0,x  1,...X„] 


f[x1,x2,...x„]  -  f\x Q,Xlr...Xn_1\ 
Xn  x0 


(3.5) 


Prueba.  Sea  Pk(x)  el  polinomio  que  interpola  /  en  xq,xi,...,x^.  Aquí  solo  necesitamos  Pn(x)  y  Pn-i(x).  Sea  R(x) 
el  polinomio  que  interpola  /  en  x\,x2,...,xn.  Entonces  (ejercicio  2.1) 


Pn (X)  =R(x)  +  - ^  [R(x)  -  Pn- 1  (x)]  (3.6) 

Xn  ~  X0 

Como  en  la  ecuación  (3.6)  el  polinomio  de  la  izquierda  y  el  de  la  derecha  son  idénticos,  entonces  su  coeficiente  prin¬ 
cipal  debe  ser  el  mismo,  es  decir. 


f[x0,xlr...xn]xn 


—  f[x\,X2,—Xn\xn  1  +  ...  + 
=  f[x  i,x2,...xn}xn~1  + 


n_i  xR(x)  -  iP„_i(i)  +  ... 


Xyi  Xq 


f[x1/x2/...xn]xn  +  ...  -  f[x 0,x2,...x„-i]xn  +  ... 
Xn  Xq 

(f[x l,X2,.-Xn\  -  f[x Q,x2,...xu_1})xn 
Xn  Xq 


de  donde  se  obtiene  (3.5). 
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Interpolando  sobre  {(x¿,yí)}i=fc-;,..jt  tenemos 

,1^  ^  ^  1  y+l/ f[Xk—j,X l,...,Xjc_l] 

/  jr^k—  y+l/  ’  '  '  T  _ 

Xk  -*■ k—j 

Resumiendo:  En  notación  de  diferencias  divididas, 

ao  =  yo, 

al  =  /[*0/*l], 

¿2  =  /[x0,Xi,X2] 

—  /[*o,*l,  ...,**]• 
donde,  /[x¿-]  =  Yk  Y*  en  general. 


f\Xk—j/Xk—j+l/ ' '  ' 


f[Xk-j- 1-1,  f\Xk—j >  X\r  •••f%k— l] 

Xk  %k—j 


En  particular. 


/[*¿,*;J  - 

/[*fc-2/Xjc-l/X)c]  = 

^  [-^A: — 3-^  — 2^  — 1  ^  -^fc] 

/[X0,  Xfc]  = 


y  i  ~  y  j 

Xj  —  Xj 

f[xk-l'Xk\  -  f\xk-2,xk-l\ 

xk  —  %k—2 

f\Xk-2,Xk-l,Xk\  -  f[xk_3,Xk-2,Xk-l\ 
Xk  %k— 3 

f\xi,X2,-~,Xk]  —  f\xQ,X\, 

Xk  -  x0 


Este  esquema  recursivo  se  puede  arreglar  en  forma  matricial  como  sigue. 


yo 

—  a  o 

y  i 

f[xo,x  i]  =  fll 

yi 

f[x  1,X2] 

f[xo,X  l,x2]  =  «2 

f[x2,x3] 

/[xi,x2,x3] 

1 1n 

f\xn—l,Xn\ 

/[*n— 2/  *n— 1/ -bz] 

f\x Q,X\,  ...,Xn\  —  Cln 
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3.4 


Estimación  del  error. 


Sea  P,¡(x )  el  polinomio  que  interpola  /  en  los  puntos  Xq,X],...,x„.  La  fórmula  de  error  debe  ser  exacta  para  x  — 
x¡,  i  —  0,1,..., n  y  también  debe  ser  exacta  en  el  caso  de  que  /  sea  un  polinomio  de  grado  inferior  o  igual  a  n.  Esto 
sugiere  que  en  la  fórmula  de  error  deben  aparecer  los  factores  (x  —  Xq){x  —  x\)  ■  ■  ■  (x  —  x„)  y  fn+] .  Probando  con 
f(x)  —  xn+1  se  observa  que  debe  aparecer  el  factor  !/(«  +  !)!. 


Teorema  3.3 


Sea  /  £  C"~  1  [a,b].  Sea  P,¡  (x)  el  polinomio  de  grado  <n  que  interpola  /  en  los  n  +  1  puntos  (distintos)  Xq,X\,...,x„ 
en  el  intervalo  [a,b].  Para  cada  valor  fijo  x  £  [a, b  existe  £(x)  £  ]a,b[  tal  que 


f(x)  -Pn(x)  —  (*  -  Xo)(x  -Xi)---(x-  Xn) 

(n  +  1)! 


Prueba.  Este  es  un  razonamiento  muy  elegante,  debido  a  Cauchy6.  Si  x  —  x¡,  i  —  0,1 la  fórmula  de  error  es 
correcta.  Consideremos  un  valor  fijo  x  £  [a,b],  diferente  de  cada  uno  de  los  nodos  x¿,  i  —  0,1,..., n.  Definamos  una 
función  g,  en  la  variable  f,  de  la  siguiente  manera. 


?(í)=/«) -r„(t)  -  /W  W¡j[,-,| 

1=0 

ge  Cn+1[a,b]  y  g(x)  =  0  y  g(x¡)  =  0,  i  =  0,1,. ..n. 

Por  tanto  g  tiene  n  +  2  ceros  distintos  en  [a,  b ] .  El  teorema  de  Rolle  dice  que  si  h  es  continua  en  [a,  b]  y  derivable  en 
]a,b[,  y  si  li(a)  —  h(b)  —  0,  entonces  h  ( e)  =0  para  algún  e  e]ci,b[.  Aplicando  repetidamente  el  teorema  de  Rolle  a 
la  función  g  en  los  intervalos  [xq,xi],  [xi,X2],...,  concluimos  que  g'  tiene  al  menos  n  +  1  ceros  distintos  en  ]a,b[.  De 
manera  similar  concluimos  que 


g"  tiene  al  menos  n  ceros  distintos  en  ]a,b[ 
g'"  tiene  al  menos  n  —  1  ceros  distintos  en  ]a,b[ 


gn+1  tiene  al  menos  1  cero  distinto  en  ]a,b[  (gn+1  es  continua  en  [a,b]) 


dn+1g 

Ahora  bien,  sea  £(x)  un  cero  de  gn+1  en  ]a,b[.  Como  ^n+i 


t=S(x) 


=  0,  tenemos  (ejercicio  3.4) 


Agustín  Louis  Cauchy  (1789-1857),  padre  del  análisis  moderno.  Estableció  las  bases  del  análisis  matemático  basándolo  en  un  con¬ 
cepto  riguroso  de  límite.  Fue  el  creador  del  análisis  complejo.  También  trabajo  en  ecuaciones  diferenciales,  geometría,  álgebra,  teoría 
de  números,  probabilidad  y  física  matemática 
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o =r+i(£(x)) 


f(x)  -  P„(x) 


(n  + 1)! 


no*  -  *«•) 

i= 0 


de  donde,/(x) 


Pn(*)  =  t 


,,+1(£W) 

(n  + 1)! 


(x 


-x0)(x-x1)---(x 


Xn )• 


3.5 


Polinomios  de  TChebyshev  y  convergencia. 


En  la  fórmula  de  error. 


f(x)  -  P„(x)  =  f  ^  j? ~  (x  -  x0)  0  ~  *i)  •  •  ■  (x-x„) 

el  factor  (x  —  xo)(x  —  xl) ' ' '  (x  —  xn)  puede  ser  "optimizado"  escogiendo  de  manera  adecuada  los  nodos  xq,X\,  ...,xn. 
El  proceso  de  optimización  lleva,  de  manera  natural,  a  un  sistema  de  polinomios  llamados  polinomios  de  TCheby¬ 
shev 

El  resultado  principal  es:  Para  cualquier  polinomio  mónico  Pn  (x)  de  grado  n, 

||-fn(*)||oo  ^  l|T„(x)||oo  —  2„_1'  n  —  1 

donde  Tn(x )  es  el  polinomio  mónico  de  TChebyshev  de  grado  n. 

T„+ i(x)  =  (x-  x0)(x  -  xi)  •  (x  -  xn)  con  x¡  =  eos  ^  ¿  =  0,l,....n 

Luego,  si  P„  interpola  /,  usando  nodos  de  TChebyshev,  tenemos 


||/(x)-Pn(x)||oo  < 


ll/"  +  1||oo  1 

(n  + 1)!  2” 


Por  lo  tanto,  la  convergencia  se  puede  asegurar  si  la  familia  de  derivadas  es  uniformemente  acotada  (dM  tal  que 
V«  E  N,  1 1  f(n+1)  (x)  |  |oo  <  M).  En  realidad  se  necesita  menos  para  asegurar  la  convergencia!. 


Los  Polinomios  de  TChebyshev  (de  primera  especie)  se  definen,  de  manera  recursiva,  de  la  siguiente  manera: 


T0(x)  =  1,  T}(x)  =  x 

Tn+i(x)  =  2xTn(x)  —  T„_1(x),  n  >  1. 


(3.7) 


Por  ejemplo. 
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T2(x)  =  2x2  —  1 

T3  (x)  =  4x3  —  3x 
T4  (x)  =  8x4  —  8x2  +  1 


Teorema  3.4 


Si  x  £  [—1,1]  entonces  Tn(x)  —  eos  ( n  eos  xx) ,  n>  0 

Prueba.  La  idea  de  la  prueba  esta  basada  en  el  hecho  de  que  eos (nd)  es  un  polinomio  en  eos  0,  es  decir,  eos n6  — 
H’k=0akcosk Q-  Luego  /„(cos0)  —  eos (n8)  satisface  (3.7). 

Recordemos  que  eos  (a  +  b)  —  cosacosb  —  sen nsen b.  Luego, 

cos[(w  +  1)0]  =  cos0cos(«0)  —  sen0sen(n0). 
cos(«  —  1)0  =  cos0cos  (n0)  +  sen0sen(n0). 

sumando  miembro  a  miembro  y  reacomodando. 


cos[(«  +  1)0]  =  2cos0cos(«0)  —  eos (n  —  1)0  (3.8) 

Ahora,  sea  0  =  cos_1x  y  x  —  cos0  y  fn(x)  —  cos(«cos_1x).  Usando  la  ecuación  (3.8)  obtenemos  que, 

í  fo(x )  =  1,  fl(x)  =  X 
{  fn+ lW  =  2xfn(x)  -fn-l(x),  n>  1. 

Luego,  fn  —  Tn  para  todo  n. 


9  Tn(x)  —  2”  1T„(x)  es  mónico:  Si  n  >  1,  de  (3.7)  se  deduce  que  el  coeficiente  principal  de  Tn  (x)  es  2"  1  (ejer¬ 
cicio  3.11).  Luego  21~nTn(x)  es  mónico. 


Tn{x)  —  21~nT„(x)  y  Tq(x)  —  Tq(x) 


9  Los  ceros  de  T„+1(x)  :  Si  x  G  [—1,1]  podemos  poner  x  —  eos 0.  Luego,  T„+1(cos0)  =  cos(n  +  1)0,  así  que  los 
ceros  '  1 :  de  Tn+1  en  [—1,1]  se  pueden  obtener  resolviendo  cos[(n  +  l)0]  =0. 

cos[(h  +  1)0]  —  0  =>  [(n +  1)6]  —  (2k —  l)n/2,  leZ.  Como  x  —  árceos 0,  0  <  0  <  7r,  entonces 


An+l)  — . 

ck 


3(n+l)  0(n+l)  _  (2^ _ l)77  k  —  l  2  n  +  1 
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Por  lo  tanto,  todos  los  ceros  de  Tn+-¡  son  reales,  distintos  y  están  contenidos  en  el  intervalo  ]  —  1, 1  [. 


Ahora  podemos  escribir 


T,+iw=n(*-4"+1)) 

k= 0 


9  Extremos:  9  crece  de  0  hasta  n,  por  tanto  x  —  eos  6  decrece  de  1  hasta  —1.  Luego  T„  oscila  entre  1  y  —1.  En 
el  ejercicio  (3.12)  se  pide  mostrar  que 


Tn  alcanza  sus  valores  extremos  en 


=  eos 


,  k  —  0,1, ...n. 


(3.9) 


Tn  (eos (p^  =  (— l)fc  si  < =  ^-,  k  =  0,2 


(3.10) 


(-1  )*T„(y['!)) 


1 

2«-i 


y  ||T„(*)||oo 


1 

2ii—i 


(3.11) 


Los  polinomios  de  TChebyshev  son  útiles  e  importantes  debido  al  siguiente  teorema 


Teorema  3.5 


Para  cualquier  polinomio  mónico  Pn  de  grado  n 


|Pn(*)||oo  ^  ||P/i(*) 


1 

2«— i 


Prueba.  La  prueba  es  por  contradicción.  Supongamos  que  hay  un  polinomio  Pn  mónico  de  grado  n  para  el  que 


Pn  (*)l|o°  ^ 


1 

2»—! 


Sea  xk  —  cos(/c7r/ n).  El  polinomio  Tn  es  mónico  de  grado  n.  Entonces  de  (3.11), 


(3.12) 


(-1  )kPn(xk)  <  \Pn(xk)\  <  — -Zi  —  (-l)fcrB(*t),  k  -0, 


Luego  0  <  (-l)l:(T„(xfc)  -  Pn(xk)),  k  =  0,1, ...,n. 
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Esto  dice  que  el  polinomio  Tn  —  Pn  cambia  de  signo  al  menos  n  veces  en  [—1,1]  y  hay  un  cero  por  cada  cambio  de 
signo! 

Pero  como  T„  y  Pn  son  mónicos  de  grado  n,  Tn  —  Pn  tiene  grado  a  lo  sumo  n  —  1  y  entonces  no  puede  tener  más  de 
n  ceros. 

Luego,  Tn  =  Pn  pero  esto  contradice  (3.12). 


El  teorema  nos  dice  que  si  tomamos  los  n  +  1  ceros  de  T„+-¡  (x)  con  los  nodos  x¡,  entonces 


ll/(x)  Íji(x)||oo  < 


\\fn  +  1\\oo 

( n  + 1)! 


ll/”  +  1||oQ||  1 
(n  +  1)!  11  2” 


Se  puede  probar  (ver  [7])  que  si  usamos  los  nodos  de  TChebyshev,  Pn  (x)  — ?  f(x)  si  n  — ?  oo  uniformemente  en 
[—1,1]  con  solo  que /G  C1  [«,&]. 


EJERCICIOS 

3.1  Use  el  teorema  fundamental  del  álgebra  para  probar  que  las  columnas  de  Vn  conforman  un  conjunto  de  vec¬ 
tores  linealmente  independiente. 

3.2  Pruebe,  usando  inducción  y  operaciones  elementales  de  matrices,  que 

Det(V,i)  —  (; Xi-Xj ) 

0<i<j<n 

3.3  Probar  (3.6).  Primero  pruebe  el  caso  i  —  1,  ...,7c  —  1  y  luego  los  casos  i—Oei  —  k. 

n 

3.4  Si  h(t)  muestre  que  7? (”+1Kí)  =  (n  +  1)! 

i=0 

3.5  Sea  P  un  polinomio  de  grado  a  lo  sumo  rt  que  interpola  una  función  /  en  los  n  +  1  nodos  distintos  XQ,x¡,...xn. 
Sea  f  un  punto  diferente  de  los  nodos  anteriores.  Sea  Q  el  polinomio  de  grado  a  lo  sumo  n  +  1  que  interpola  /  en 
xq,x\ ,...xn/t.  Mostrar  que 

n 

a)  Q(x)  =  P(x)  +  f[x0,xi,...,xn,t]Y[(x  -  Xj) 

j= o 

n 

b)  f(t )  -  P(t)  =  f[x0,xi ,...,xn,t]Y[(t  -  x¡) 

i= o 

3.6  Sea  /  G  Cn[a,b]  y  sean  XQ,X],...xn  puntos  distintos  en  [a, b] .  Muestre,  usando  el  ejercicio  (3.5)  y  la  fórmula  de 
error,  que  existe  un  £  en  ]a,b[  tal  que 


f\x  o,Xlr...rXn}  =  ^,/('!)(?) 
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Ayuda:  Compare  f(t)  —  P(t )  tal  y  como  aparece  en  la  fórmula  del  error  y  como  aparece  en  el  ejercicio  (3.5). 

3.7  Pruebe  que  si  /  es  un  polinomio  de  grado  k,  entonces  para  n  >  k  se  tiene 

f[xo,x  i,...,x„]  =0 

3.8  Muestre  que  si  /(x)  =  sen(x)  es  aproximada  por  un  polinomio  P  de  grado  nueve  que  interpola  /  en  diez 
puntos  de  [0,1],  entonces 

| sen(x)  -  P(x)|  <  ^y,  x  £  [0,1]. 

3.9  Sea  h  —  x\  —  x0  >  0,  muestre  que  si  P\  interpola  /  en  {x0,xi},  entonces 

1 1  f(x)  -  Pi  (x)  |  |oo  <  ^8^°°  h2,  X  £  [x0,  Xl] 

3.10  Muestre  que  si  P2  interpola  /  en  { xq,  xq  +  h,  xq  +  2 h},  h  >  0,  entonces 


1 1  f"'\ I 

I  |/(x)  -  P2(x)||oo  <  h3'  x  e  [^0/^0  +  2/í] 

Ayuda:  Observe  que  Q(x)  =  (x  —  xq)(x  —  (xq  +h))(x—  (xq  +2 h))  es  un  polinomio  de  grado  tres.  Sus  puntos  críticos 
son  ceros  de  la  cuadrática  Q  .  Resulta  sencillo  determinar  los  extremos  absolutos  de  Q. 


3.11  Muestre  que  el  coeficiente  principal  de  T„(x)  es  2"  1 . 

3.12  Si  x  £  [—1,1]  yx  =  eos  8,  T„(cos0)  =  eos  (n6).  Use  este  hecho  para  verificar  que 


a)  T„  alcanza  sus  valores  extremos  en  —  eos  (  —  J  ,  k  ~  0, 1 ,...«. 


k  7r\ 


b)  Tn  (eos (p[n^  =  (~l)k  si  <p(¿,]  =  ^r  k  =  0,2,. ..n. 

c)  (-l)*Tll(yW)  =  ^I  y  ||Tb(x)||00  =  2¿t 


3.13  Considere  la  función  de  Runge, 


fiX)  1  +  25x2 

Haga  la  representación  gráfica  de  (x  —  xo)(x  —  xi)...(x  —  x,¡)  para  los  casos  n  =  5,10,20,  en  el  caso  de  que  los  nodos 
sean  igualmente  espaciados  y  en  el  caso  que  sean  nodos  de  TChebyshev.  En  cada  caso  usar  un  mismo  sistema  de 
coordenadas. 
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ECUACIONES  NO  LINEALES. 


En  general,  no  es  posible  determinar  los  ceros  de  una  función,  es  decir,  valores  x*  tal  que  f  (x* )  —  0,  en  un  número 
finito  de  pasos.  Tenemos  que  usar  métodos  de  aproximación.  Los  métodos  son  usualmente  iterativos  y  tienen  la 
forma:  Iniciando  con  una  aproximación  inicial  Xo  (°  un  intervalo  [a,  b] ),  se  calculan  aproximaciones  sucesivas  X\,  Xi, ... 
y  elegimos  xn  como  aproximación  de  x*  cuando  se  cumpla  un  criterio  de  parada  dado.  A  los  ceros  de  un  polinomio  se 
les  conoce  también  como  raíces. 

En  este  capítulo  veremos  los  métodos  iterativos  usuales:  bisección,  regula  falsi,  punto  fijo,  Newton  y  el  método  de 
la  secante.  Además  se  incluyen  los  teoremas  de  convergencia  el  análisis  del  orden  de  convergencia  y,  en  algunos 
casos,  análisis  de  las  cotas  de  error.  En  todo  caso,  se  incluye  una  sección  para  establecer  el  criterio  de  parada  de  un 
algoritmo.  En  general,  no  usamos  estos  métodos  de  manera  aislada  sino  más  bien  combinada.  Por  eso  se  incluyen 
secciones  con  métodos  híbridos.  El  método  de  bisección  es  muy  confiable,  pero  relativamente  lento.  Los  métodos  de 
Newton  y  la  secante  son  más  veloces,  pero  no  son  tan  confiables  como  bisección.  Bisección  es  óptimo  para  funciones 
continuas  (en  general)  pero  no  para  funciones  derivables  o  convexas.  En  este  último  caso,  el  método  de  Newton  es 
veloz,  pero  necesita  el  cálculo  de  la  derivada  (no  todas  las  funciones  derivables  tienen  derivadas  que  se  pueden  ex¬ 
presar  en  términos  de  funciones  elementales  o  funciones  especiales)  y  podría  colapsar  si  la  derivada  toma  valores 
muy  pequeños  en  el  proceso.  En  las  funciones  obtenidas  por  interpolación  corre  el  riesgo  de  caer  en  un  ciclo.  El 
método  de  la  secante  es  veloz  y  no  requiere  la  derivada,  sino  una  aproximación.  Aún  así,  corre  riesgos  inherentes  al 
comportamiento  de  la  derivada  en  las  cercanías  de  la  raíz. 

El  método  de  Dekker-Brent  combina  la  confiabilidad  de  bisección  con  la  velocidad  del  método  de  la  secante  y  el 
método  de  interpolación  cuadrática  inversa.  Iniciando  con  un  intervalo  donde  la  función  cambia  de  signo,  el  si¬ 
guiente  paso  toma  el  camino  más  veloz  disponible  (secante  o  interpolación  cuadrática  inversa,  si  no  hay  peligro  de 
colapso)  sin  dejar  nunca  el  intervalo  donde  hay  cambio  de  signo.  Así  en  el  peor  de  los  casos,  en  el  siguiente  paso 
se  usaría  bisección.  Este  algoritmo  es  un  método  de  tipo  adaptativo.  Está  balanceado  de  tal  manera  que  siempre  en¬ 
cuentra  una  respuesta  y  es  siempre  más  rápido  que  bisección.  Algunos  paquetes  de  software,  como  Mathematica®  y 
MatLab®,  usan  Newton,  secante  y  el  método  de  Brent  para  aproximar  ceros  de  funciones.  Para  encontrar  las  raíces 
de  un  polinomio  se  usan  algoritmos  especializados,  por  ejemplo  el  algoritmo  de  Jenkins-Traub. 


4.1 


Orden  de  convergencia 


El  orden  de  convergencia  nos  da  una  'medida'  de  la  rapidez  con  la  que  una  sucesión  de  aproximación  converge,  en 
particular  nos  podría  informar  con  qué  rapidez,  a  partir  de  cierto  índice,  ganamos  cifras  decimales  correctas. 


Definición  4.1  (Orden  de  convergencia). 


Supongamos  que  lim  un  —  u*  y  que  u„  7^  u*  Vn.  Se  dice  que  la  sucesión  tiene  orden  de  convergencia  q  >  1  si 

\un+i  —  u*  I 

lim  ^ -  =  K  para  alguna  constante  0  <  K  <  00. 

H-Í-OO  \u„  —11*11  ^ 


(4.1) 


Para  entender  lo  que  dice  la  definición,  supongamos  que  ón  denota  el  número  de  lugares  decimales  exactos  en  la 
aproximación  en  la  n—  ésima  iteración,  entonces 

¿n  «  -log10|u„  -  U*  | 


Si  un  —  0.123447  y  u*  —  0.123457  entonces  5„  ~  —  log10  1 0.00001 1  =  5 
Si  un  =  1.53222  y  u*  =  1.5332423  entonces  Sn  w  -log10  1 0.00001 1  =  2.99042 

Tomando  logaritmos  de  base  10  a  ambos  lados  del  límite  (4.1)  podemos  establecer  que 

f’n+l  ~  <7^)1  —  1°§10  1^1 ' 

Es  decir,  si  el  orden  de  convergencia  es  q,  en  la  siguiente  iteración  (después  de  la  iteración  n—  ésima),  el  número  de 
lugares  decimales  exactos  es  aproximadamente  qón  +  L  con  L  =  —  log10  K\. 


9  q  no  necesariamente  es  un  entero. 

9  Si  q  —  K  —  1,  un  converge  más  despacio  que  una  sucesión  que  converja  linealmente  y  se  dice  que  converge 
sublinealmente. 

9  Si  (4.1)  se  da  con  q  =  1  y  K  =  0,  pero  no  con  q  >  1,  la  convergencia  se  dice  superlineal. 

9  Si  q  —  1  y  0  <  K  <  1,  un  se  dice  que  converge  linealmente  y  K  es  la  tasa  de  convergencia. 

9  Si  q  —  2  entonces  un  se  dice  que  converge  cuadr áticamente  y  se  espera  que  a  partir  de  algún  subíndice  N,  cada 
iteración  aproximadamente  duplica  el  número  de  lugares  decimales  exactos.  Observe  que  en  el  caso  particular 
q  =  2  y  K  =  1, 

3n+ 1  ~  qdn—l  °gio  1^1 

~  2  Sn. 
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q  —  1  indica  que  se  gana  una  cifra  decimal  exacta  cada  cierto  número  promedio  de  iteraciones.  La  sucesión 
1  1  /-!'  " 


Xn  6  3 


converge  a  1/6  =  0.166666666... 


El  orden  de  convergencia  es  q  —  1.  En  efecto. 


72  +  1 


K+i  - 1/61  Jjj) _ =  lim  "(I-”+1 

«hE»  |u„-i/6|í/  iSS,  j'iy  v  2 , 


2  si  í  = 1 


oo  si  q  >  1. 


En  la  tabla  se  observa  que  efectivamente  ~  ón  V  hay  que  esperar  algunas  iteraciones  adicionales  para  ganar  un 
nuevo  decimal  exacto. 


^n+l 


5n 


40  12.8193775849834 

13.1203280613792 
13.4215171101422 
13.7222290578374 
14.0238953825265 
14.3236536511268 
14.6272308358047 
14.9231813059394 
15.2344304667850 
49  15.5152570763607 


12.5183078278654 

12.8193775849834 

13.1203280613792 

13.4215171101422 

13.7222290578374 

14.0238953825265 

14.3236536511268 

14.6272308358047 

14.9231813059394 

15.2344304667850 


0.166666666666818 
0.166666666666591 
0.166666666666705 
0.166666666666648 
0. 1 6666666666667 6 
0. 1 66666666666662 
0.166666666666669 
0.166666666666665 
0. 1 66666666666667 
0. 1 66666666666666 


Ejemplo  4.2  (Convergencia  cuadrática). 


Sea  xq  >  0  y  x„+]  =  0.5  í  xn  H - j .  Se  sabe  que  lim  xn  =  \¡2.  En  este  caso,  la  convergencia  es  cuadrática:  En  efecto. 


primero  veamos  que  x„+1  —  \J2  —  (xn  -  \/2 )  ,  entonces 


%n+ 1 


V2  _  ( 


v  2 


(^xn  \/2^ 


2—17 


(■ x„  2xn  (x„  —  s/l^j 


por  tanto. 


lim 

n— >oo 


(xn-V2)2~q 

I 

1 

¡i 

2.X  n 

0 

si 

q  =  1 

i 

2V2 

si 

q  =  2 

OO 

si 

q>2 
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Ejemplo  4.2  (continuación). 


Comparemos  \/2  =  1.4142135623730950...  con  los  valores  de  la  segunda  columna  de  la  tabla  (4.2). 


n 

xn 

|  %n  | 

0 

1.5 

0.5 

1 

1.41666666666667 

0.083333333 

2 

1.41421568627451 

0.00245098 

3 

1.41421356237469 

2.1239  x  10~* * * 6 * * 9 * * 

4 

1.41421356237310 

1.59472  x  10-12 * * 

5 

1.41421356237309 

2.22045  x  10~16 

La  convergencia  es  muy  rápida  y  se  puede  observar  como  aproximadamente,  la  precisión  se  duplica  (en  las  cercanías 
de  y/2. )  en  cada  iteración. 


EJERCICIOS 


4.1  La  sucesión  x„_i_i  = 


2x%  —  2 


n+1  ~  3x2  _  3 

a)  Verifique  que  la  convergencia  es  cuadrática. 


converge  a  —2  iniciando  en  Xq  —  —2.4. 


4.2  Sean  xo  >  0,  A  >  0  y  x„+i  —  0.5  ^x,¡  ■  Se  sabe  que  lim  xn  =  \ÍA.  Verifique  que  la  convergencia  es 

cuadrática. 


Aunque  en  general  no  disponemos  de  un  mecanismo  analítico  para  resolver  una  ecuación  arbitraria,  si  tenemos 

métodos  para  aproximar  una  solución  mediante  aproximaciones  sucesivas.  En  lo  que  resta  del  capítulo  vamos  ver 

algunas  de  estos  métodos,  su  confiabilidad  y  su  velocidad  de  convergencia. 

Vamos  a  establecer  algunos  detalles  acerca  de  notación  que  usaremos  en  este  capítulo. 

®  /  G  Cn[a,b\  indica  que  /  tiene  derivadas  continuas  hasta  el  orden  n  en  [a,  b\ .  En  particular,  /  G  C[a,b]  indica 

que  /  es  continua  en  [a,b]  y  /  G  C1  [a,b]  indica  que/  es  derivable  en  [a,  b] 

9  Recordemos  los  puntos  críticos  en  [a,b]  de  /  €  C1  [a,b]  son  las  soluciones  de  la  ecuación  f'(x)  —  0  en  [a,  b  .  Si 

los  puntos  críticos  en  [a,b]  son  {xo,xi,...,x¿-}  entonces  el  máximo  y  el  mínimo  valor  del  conjunto 

{/(fl),/(b),/(x0),/(xi),...,/(xjt)} 

corresponden  al  máximo  y  el  mínimo  absoluto  de  esta  función  en  [a,b]. 

9  Si  /  es  una  función  de  una  variable  y  si  /(x* )  =  0  entonces  decimos  que  x*  es  un  cero  de  /.  Si  /  es  un  polinomio 

también  se  dice  que  x*  es  una  raíz. 
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4.2 


Método  de  Punto  Fijo 


En  muchos  casos  una  ecuación  no  lineal  aparece  en  la  forma  de  " problema  de  punto  fijo": 

Encuentre  x  tal  que  x  =  g(x)  (4.2) 

Un  número  x  =  x*  que  satisface  esta  ecuación  se  llama  punto  fijo  de  g. 

- 

9  En  el  problema  de  punto  fijo  x  =  sen(x),  tenemos  g(x)  —  sen(x)  y  un  punto  fijo  de  g  es  x*  =  0. 

9  Si  g(x)  =  x2,  los  puntos  fijos  son  x  =  0yx  =  l  pues  O2  =  0  y  l2  —  1. 

9  Si  g(x)  =  lnx  +  x,  un  punto  fijo  es  x  =  l  pues  lnl  +  1  —  1. 


¿Cuáles  son  los  puntos  fijos  de  g(x)  —  ln(x)  o  de  g(x)  =  cos(x)?.  Geométricamente,  un  punto  fijo  corresponde  al 
valor  de  la  abscisa  donde  la  gráfica  de  y  =  g(x)  interseca  a  la  recta  y  =  x. 


En  el  problema  de  punto  fijo  x  =  cos(x),  tenemos  g(x)  —  cos(x).  El  único  punto  fijo  de  g  es  x* 
0.7390851332151607... 


Figura  4.1  Punto  fijo  de  cos(x)  :  x*  ~  0.73908... 


Una  ecuación  /(x)  =  0  se  puede  escribir  en  la  forma  (4.2)  despejando  x  (si  se  pudiera).  En  este  caso  se  obtiene 

/(*)  =0  =>-  x  =  g(x) 
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La  ecuación  x3  +  x  +  1  =  0  se  puede  poner  como  un  problema  de  punto  fijo  despejando  x  de  varias  maneras, 
a.)  x  —  — x 3  —  1.  En  este  caso  g(x)  =  — x3  —  1 


b.)  x  —  \J —x  —  1.  En  este  caso  g(x)  =  \J — x  —  1 


U./  A.  - 

xz 

d.)  ... 


Iteración  de  punto  fijo  Un  esquema  iterativo  de  punto  fijo  define  por  recurrencia  una  sucesión  {x„}  de  la  siguiente 
manera: 


x0  e  IR,  X;+1  =  g(xi),  i  =  0,2,...  (4.3) 


Figura  4.2  Iteraciones  del  método  de  punto  fijo:  convergencia  y  divergencia.  Observe  que  (xí)  |  <  1  en  los  alrededores  de  X  =  X*  en  la  figura  (a) 


Teorema  4.1 


Sea  la  sucesión  {xn}  definida  por  xo  G  IR,  x¡+|  —  v(x;;),  i  —  0,2,...  con  g  continua.  Si  lirnx,,  =  x* ,  entonces  x*  es 

— ^OO 

punto  fijo  de  g. 
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Consideremos  la  ecuación  x  —  — — — ,  y  sea  xq  =  0.2,  la 
iteración  de  fijo  correspondiente  es 

Xq  —  0.2,  g(x)  =  (x4  —  l)/4 
xi  =  g(x o)  ~  -0.2496 
x2  =  y(xa)  «  -0.2490296... 
x3  =  g(x 2)  ~  —0.2490385... 


Toda  la  información  aparece  en  la  tabla 


n 

Xn-i~l 

Error  absoluto 
estimado:  \xn¡i  —  xn\ 

Error  relativo 

estimado:  |  (xn+i  —  xn)  / xn+i  \ 

1 

-0.2496 

0.4496 

1.801282051 

2 

-0.249029672515994 

0.000570327 

0.002290199 

3 

-0.249038510826169 

8.83831xl0~6 

3.54897X10-5 

4 

-0.249038374322083 

1.36504xl0~7 

5.48125xl0-7 

5 

-0.249038376430443 

2.10836xl0~9 

8.46601xl0-9 

6 

-0.249038376397879 

3.25645X10-11 

1.30761  xlO-10 

7 

-0.249038376398382 

5.02959  xl0~13 

2.0196X1Q-12 

Consideremos  el  problema  de  punto  fijo  x2  —  1  —  x.  De  acuerdo  a  la  figura, 
hay  un  punto  fijo  en  [1,2]  y  otro  en  [—1,0]  Si  tomamos  xq  —  1.5,  la  iteración 
de  punto  fijo  parece  divergente  según  los  datos  de  la  tabla  de  la  derecha.  En 
este  caso,  la  iteración  cae  en  un  ciclo  si  para  algún  n,  xn  —  0  o  xn  =  —  1. 


n 

xn+ 1 

Error  estimado 

1 

1.25000000 

0.25 

2 

0.56250000 

0.6875 

3 

-0.68359375 

1.2460937 

22 

0 

1 

23 

-1 

1 

24 

0 

1 

25 

-1 

1 

26 

0 

1 

En  ambos  casos  hay  un  entorno  alrededor  de  x*  en  el  que  |g'(x)  |  ft  1. 
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Aunque  no  es  un  método  eficiente  (en  esta  forma 
cruda),  podemos  aproximar  la  única  solución  real  de 
x3  +  x  +  1  —  0  usando  iteración  de  punto  fijo. 

Para  empezar,  debemos  poner  el  problema  como  un 
problema  de  punto  fijo.  Para  hacer  esto  debemos  despejar 
“x".  Hay  varias  posibilidades. 


a. )  x  —  — 1  —  x3, 

b. )  x  =  \J — 1  —  x, 

c. )  x  = 

d. ) 


—  1  —  x 

v-2  ' 


El  resultado  de  aplicar  punto  fijo  en  los  dos  primeros 
casos,  con  Xo  =  —0.5,  se  puede  ver  en  las  tablas  que 
siguen. 


x  =  — 1  —  x3 


n 

%n+ 1 

i 

-0.7840000000 

2 

-0.5181096960 

3 

-0.8609198471 

4 

-0.3619008595 

5 

-0.9526010366 

17 

-1  1 

18 

0 

19 

-1 

20 

0 

21 

-1 

22 

0 

y  =  x3  +  x  +  1 


X 

i 

1 

* 

1 

II 

|g'0)l  <! 

n 

xw i i 

\Xn~Xn+1 1 

i 

-0.79370052 

0.293700526 

2 

-0.59088011 

0.202820413 

3 

-0.74236393 

0.151483819 

4 

-0.63631020 

0.106053729 

24 

-0.6822715 

0.000134782 

25 

-0.6823680 

9.65013xl0~5 

26 

-0.6822989 

6.90905  xl0~5 

27 

-0.6823484 

4.94671  xl0~5 

28 

-0.6823130 

3.54165xl0~5 

29 

-0.6823383 

2.53572xl0~5 

30 

-0.6823202 

1.81548xl0~5 
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Los  teoremas  que  siguen  dan  condiciones  suficientes  (pero  no  necesarias)  para  que  haya  un  punto  fijo  en  un  intervalo, 
condiciones  suficientes  para  que  el  punto  fijo  sea  único  en  el  intervalo  y  condiciones  suficientes  para  la  convergencia. 


Teorema  4.2 


Si  g  G  C[a,b]  y  si  g(x )  G  [ a,b ]  para  todo  x  G  [ a,b ],  entonces  g  tiene  un  punto  fijo  en  [a,b\ 


Teorema  4.3 


Si  y  €  C[a,b]  y  si  g(x)  G  [ a,b ]  para  todo  x  G  [ a,b }  y  si  g'  esta  definida  en  ]n,b[  y  cumple  (x) |  <  1  en  este  intervalo, 

entonces  el  punto  fijo  es  único. 


Teorema  4.4 


Si  g  G  C[a,b]  y  si  y(x)  G  [a,b]  para  todo  x  G  [ a,b ]  y  si  g'  esta  definida  en  ]a,b[  y  existe  k  positiva  tal  que  |g'(x)|  < 
k  <  1  en  \a,  b[,  entonces,  para  cualquier  Xq  G  [a,b\,  la  iteración  xn+-¡  =  g(xn)  converge  a  un  único  punto  fijo  x*  de  g 
en  este  intervalo.  También 


\x„+\  -  x* 


kn\x\  —  xq| 

1  7  / 


El  orden  de  convergencia  de  este  método  coincide  con  la  multiplicidad  del  punto  fijo,  es  decir,  si  g'1’-1  es  la  primera 
derivada  que  no  se  anula  en  x*  entonces  el  orden  de  convergencia  es  p. 


- 

Sea  g(x)  —  (x3  —  1) /4.  En  el  intervalo  [—1,1],  esta  función  tiene  un  punto  fijo  único  x*  y  además  lim  g(x„)  —  x*  . 
Para  mostrar  esta  afirmación  verifiquemos  las  condiciones  de  la  parte  c.)  del  teorema  (4.5). 

9  g  es  continua  y  g(x)  G  [—1,1]  para  todo  x  G  [—1,1] 

3x2 

Efectivamente,  g  es  continua  y  como  g' (x)  —  — j—  entonces  g  solo  tiene  un  punto  crítico  en  [—1,1],  x  =  0. 
Luego, 

Mín{g(  — l),y(l),y(0)}  <  g(x)  <  Máx{{g(-l),g(l),g(0)} 
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Ejemplo  4.9  (continuación). 


Mín{-^,0,-^}  <g(x)  <Máx{-*i,0,-^} 


-1  <  — ^  <«■(*)  <0  <  1 


por  lo  tanto,  g(x)  E  [—1,1].  Con  lo  cual  g  tiene  un  punto  fijo  en  [—1,1]. 

O  Si  g'  existe  en  ]  —  1,1[  y  y' (x)  <  k  <  1  para  toda  x  E  ]  —  1,1[  entonces  el  punto  fijo  es  único  y  la  iteración  de 
punto  fijo  converge  para  cualquier  xq  E  [—1,1]. 

3x2  3x 

Como  g'(x)  —  —  entonces  g" ( x )  =  —  tiene  un  punto  crítico  en  el  intervalo,  a  saber  x  =  0.  Por  lo  tanto 


|y'(x)|  <Máx{|y,(-l)|,|y'(l)|,|y(0)|}  =X  |y'(x)|  <  -  <  1  si  x  G  [-1,1] 


por  lo  que,  en  particular 


\g'(x)\  <  -  <1  en  ]-l,l[ 


y  podemos  tomar  k  —  3/4.  Por  lo  tanto,  para  cualquier  Xo  E  [—1, 1],  lim  g(xn)  —  x*  . 

Además,  si  xq  =  —0.5,  una  cota  de  error  en  la  n  —  ésima  iteración  de  punto  fijo  se  puede  establecer  como 


<  ^^|-0.5-y(-0.5)| 


\xn  -X*|  <  3 n41-"^ 


En  particular,  cuando  n  =  5,  X5  =  —0.2541018552...  y  entonces  |xs  —  x*|  <  0.2076416015625,  mientras  que  la 
estimación  del  valor  absoluto,  más  apegada  a  la  realidad  en  este  caso,  nos  da  3,27797  x  1 0 


4.3  Punto  Fijo.  Algoritmo  e  Implementación. 


El  algoritmo  es  muy  sencillo.  Para  la  implementación  del  método  de  punto  fijo,  el  criterio  de  parada  que  podríamos 
usar  es 


x„  —  x„_i  |  <  S(\xn |  +  1)  y  un  número  máximo  de  iteraciones. 
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Esta  es  una  combinación  entre  error  relativo  y  error  absoluto  con  un  número  máximo  de  iteraciones. 


Algoritmo  4.1:  Iteración  de  Punto  fijo. 

Datos:  Una  función  continua  g,  Xq,  ó,  maxltr. 

Salida:  Si  hay  convergencia,  una  aproximación  xn  de  un  punto  fijo. 

1  f  =  0; 

2  repeat 

3  Xl=g(x0y, 

4  dx  —  \xi  —  xq\; 

5  Xq  —  X\) 

6  k  —  k  + 1; 

7  until  dx  <  <5(|xg|  +1)  o  k>  maxltr ; 

8  return  x\ 


Implementación  Basic.  La  implementación  en  Basic  del  método  de  punto  fijo  los  valores  Xq,  ó  y  maxltr.  La  función 
g(x)  se  define  en  el  código  (Alt-Fll). 


Código  VBA  4.1  :  Función  PuntoFi  jo 


Function  gx(x) 

gx=  -l-xA3 

End  Function 


Function  PuntoFi  jo  (xc,  delta,  maxltr) 
Dim  k,  xO,  xl,  dx 
k  =  0 
xO  =  xc 

Do 

xl  =  g.Evall (xO) 
dx  =  Abs (xO  -  xl) 
xO  =  xl 
k  =  k  +  1 

Loop  Until  dx  <=  delta  Or  k  >  maxltr 
PuntoFijo  =  xl 

End  Function 


Implementación  con  XNumbers.  Esta  segunda  implementación  usa  la  extensión  Xnumbers  para  leer  y  evaluar  la 
función  g.  La  función  PuntoFijo  recibe  la  función  g  como  "string",  y  los  valores  xq,  5  y  maxltr. 


Ofe 


Actualmente  hay  XNumbers  en  versión  'Excel  97/2000/XP/2003'  y  versión  'Excel2010and2007'.  Las  in¬ 
strucciones  (también  puede  ver  el  apéndice  sobre  programación  VBA  Excel)  y  el  complemento  se  puede  descargar 
(agosto  2012)  desde  http :  //www.  thetropicalevents  .  com/Xnumbers60/.  La  fuente  original  de  Xnumbers  (para  Excel 
97/2000/XP/2003)  es  http :  / /digilander .  libero .  it/ foxes/. 
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Código  VBA  4.2  :  Función  PuntoFi  jo  con  la  extensión  clsMathParser 


Function  PuntoFi jo (gx,  xc,  delta,  maxltr) 

Dim  g  As  New  clsMathParser  'Crea  un  objeto  clsMathParser  '  g' .  Desde  g  podemos  acceder  a  todos 

'los  métodos,  en  particular  g.Evall(x)  para  evaluar  en  x 

Dim  k,  xO,  xl,  dx,  okgx 

okgx  =  g.  StoreExpression  (gx)  'lee  la  función  g(x)=gx  (un  string) ,  revisa  sintaxis  y  almacena. 

'Devuelve  true  o  false 

If  Not  okgx  Then 

MsgBox  ("Error  en  g:  "  +  g.ErrorDescription)  'sí  hubiera  error.... 

Exit  Function 

End  If 
k  =  0 
xO  =  xc 

Do 

xl  =  g.Evall (xO) 
dx  =  Abs (xO  -  xl) 
xO  =  xl 
k  =  k  +  1 

Loop  Until  dx  <=  delta  Or  k  >  maxltr 
PuntoFijo  =  xl 

End  Function 


Hoja  Excel  para  el  método  de  punto  fijo.  Para  hacer  una  hoja  Excel,  modificamos  la  función  "PuntoFijo"  y  la 
convertimos  en  una  subrutina  para  poder  imprimir  en  las  celdas.  Como  referencia  tenemos  la  figura  (4.3).  Observe 
que  en  este  cuaderno  se  supone  que  hemos  instalado  la  extensión  XNumbers,  por  eso  podemos  leer  la  función  desde 
la  celda  'D3'. 


B 


D 


10 


Este  cuaderno  usa  'XNUMBERS' 

Iteración  Punto  Fijo:  Aproxima  una  solución  del  problema  g(x)  =  x 

g(x)=  root(  -x  - 1,3) 


0,01 


-0.6 


APROXIMACION 


-0,7368063 

-0.64085311 

-0,71081629 

-0,66128897 


Error  Estimado 

K-,  -*J 


0.1368063 

9.60E-02 

7.00E-02 

4.95E-02 


-0,64085311 

-0,71081629] 

-0,661266971 

-0,69707009 


Ejecutar  Iteración  Punto  Fijo 


Figura  4.3  Iteración  de  punto  fijo. 


Software: 


Cuadernos  LibreOffice  y  Excel 


Código  VBA  4.3:  Subrutina  que  se  activa  con  el  botón  en  la  hoja  Excel. 


Private  Sub  CommandButtonl_Click  ( ) 
Dim  gx,  xc,  delta,  maxltr 
gx  =  Cells  (3,  2) 
xc  =  Cells  (8,  1) 
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delta  =  Cells  (8,  2) 
maxltr  =  Cells (8,  3) 

Cali  PuntoFi jo (gx,  xc,  delta,  maxltr,  8,  5) 

End  Sub 

Sub  PuntoFi jo (gx,  xc,  delta,  maxltr,  fi,  co) 
Dim  g  As  New  clsMathParser 
Dim  k,  xO,  xl,  dx,  okgx 
okgx  =  g.StoreExpression (gx) 

If  Not  okgx  Then 

MsgBox  ("Error  en  g:  "  +  g.ErrorDescription) 

Exit  Sub 

End  If 
k  =  0 
xO  =  xc 

Do 

xl  =  g.Evall (xO) 
dx  =  Abs (xO  -  xl) 
xO  =  xl 

Cells (fi  +  k,  co)  =  xl 
Cells (fi  t  k,  co  +  1)  =  dx 
k  =  k  +  1 

Loop  Until  dx  <=  delta  Or  k  >  maxltr 

End  Sub 
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4.3  Usar  punto  fijo  para  aproximar  la  solución  de  cada  ecuación  en  el  intervalo  que  se  indica. 

a)  x3  —  x  —  1  =  0  en  [1,2] 

b)  x2  —  x  —  1  =  0  en  [—1,0] 

c)  x  =  e~x  en  [0,1] 

d)  x5  —  x  +  1  =  0  en  [—2,  —1] 

e)  sen(x)  —  x  —  0  en  [—1,1] 

4.4  Verifique  que  las  siguientes  funciones  tienen  un  único  punto  fijo  en  el  intervalo  dado. 

a)  g(x)  —  (x2  —  l)/3  en  el  intervalo  [—1,1]. 

b)  g(x)  =  2~x  en  [1/3,1] 

4.5  Repita  la  parte  1.)  del  ejemplo  (4.9)  con  g(x)  =  (x3  —  l)/4  en  [—0.5,0]. 

4.6  Considere  g(x)  =  2~x . 

a)  ¿Podría  encontrar  una  constante  positiva  k  <  1  tal  que  |g'(x)|  <  k  Vx  £  ]l/3, 1[? 

b)  ¿Se  puede  garantizar  que  la  iteración  de  punto  fijo,  iniciando  en  cualquier  Xo  £  [1  /3, 1],  converge  al  único 
punto  fijo  de  g  en  el  intervalo  [1/3, 1]  ?. 

4.7  Considere  x  =  0.5  (sen(x)  +  cos(x)) .  Determine  un  intervalo  [a,b]  dónde  la  iteración  de  punto  fijo  converge 
sin  importar  la  elección  de  la  aproximación  inicial  xq  £  [a,  b] .  Debe  justificar  su  respuesta. 
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4.8  Considere  el  problema  de  punto  fijo:  x  =  0.5  (x  +  2/x).  Determine  un  intervalo  [a,b]  en  el  que  se  pueda  aplicar 
la  parte  c.)  del  teorema  (4.5).  Nota:  Es  claro  que  x  =  0.5  (x  +  2/ x)  tiene  como  solución  ± \/2.  La  iteración  solo  se  usa 
con  el  propósito  de  obtener  una  aproximación  "tangible"  de  esta  raíz,  con  algunos  decimales  exactos. 

4.9  Usando  la  implementación  en  VBA  Excel,  aplique  iteración  de  punto  fijo  para  resolver  el  problema  x  —  (2x3  — 
2)/(3x2  —  3  tomando  xq  —  1.2.  Hay  algo  muy  extraño  pasando  aquí.  ¿Qué  es? 

4.10  Considere  el  problema  de  punto  fijo  x  =  e~x.  Muestre  que  la  iteración  de  punto  fijo  converge  para  cualquier 

Xq  >  0. 

4.11  Considere  el  problema  de  punto  fijo  x  —  3x  —  3x2  +  x3. 

a)  Determine  un  intervalo  [a,b]  tal  que  la  iteración  de  punto  fijo  converja  a  x*  =  1,  para  todo  xq  G  [a,b].  Ayuda:  Haga 
una  representación  gráfica  de  g,  g'  y  1. 


4.4 


Punto  Fijo:  Aspectos  Teóricos. 


El  teorema  que  sigue  establece  condiciones  suficientes  para  la  existencia  de  un  punto  fijo  en  un  intervalo  y  también 
condiciones  para  la  convergencia  del  proceso  de  iteración  de  punto  fijo. 


Teorema  4.5  (Punto  fijo). 


Sea  g  G  C[a,b], 

a. )  Si  y(x)  G  [a,b]  para  todo  x  G  [a,b\,  entonces  g  tiene  un  punto  fijo  en  [a,b] 

b. )  Si  g'  esta  definida  en  ]a,b[  y  si  |g'(x)|  <  1  en  este  intervalo,  entonces  el  punto  fijo  es  único. 

c. )  Si  g'  G  C[a,b]  y  si  g(x)  G  [a,b]  para  todo  x  G  [a,b]  y  además  existe  k  positiva  tal  que  |g'(x)|  <  k  <  1  en  ]a,b[, 

entonces,  para  cualquier  xo  G  [a,b],  la  iteración  xn+\  =  g(xn)  converge  a  un  único  punto  fijo  x*  de  g  en  este 
intervalo.  También 

\xn+1-x*\<kn¡^_~kXo1,  n  — 1,2,... 


Prueba 

a.)  La  idea  es  tomar  /(x)  =  x  —  g(x)  y  mostrar  que  cambia  de  signo,  así  habría  un  cero  x*  de  /,  es  decir, 

**-^(x*)  =  0. 


Sea  g(a)  ^  a  o  g(b)  7^  b  (sino,  el  teorema  se  cumple  directamente).  En  este  caso,  por  hipótesis,  a  <  g(x)  <  b  y 
entonces  la  función  f(x)  =  x  —  g(x)  cambia  de  signo  en  [a,b]  pues  f(a )  <  0  y  f(b)  >  0. 


como  /  es  continua  en  [a,b]  entonces  /  se  anula  en  este  intervalo,  es  decir  existe  x*  G  \  a,  b{  tal  que  f(x* )  —  0  o 
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b.)  La  idea  es  esta:  si  |y'(x)  |  1  cabe  la  posibilidad  de  que  y  vuelva  sobre  la  recta  y  =  x,  en  otro  caso,  esto  no  sería 

posible  (figura  4.4).  Si  hay  varios  puntos  fijos  tendríamos  una  situación  como  la  de  la  figura  (4.5)  y  en  este  caso, 
por  el  teorema  del  valor  medio,  existe  un  £  E]a,b[  tal  que  y' (¿j)  |  =  1  y  esto  contradice  la  hipótesis  y' (x)  <  1. 


Figura4.4  Si  X  E]a,b[,  ena.)  |y'(x)|  yt  1,  yen  b.)  |y'(x)|  <  1 


Par  mostrar  la  unicidad  del  punto  fijo  procedemos  por 
contradicción.  Supongamos  que  tenemos  dos  puntos  fijos 
distintos  en  [a,b],  x(  y  x|.  Por  el  teorema  del  valor  medio, 
existe  g  E]a,b[  tal  que 


y'(£) 


y(xí)  -g(x  2) 

V*  _ 


Como  asumimos  que  =  x\  y  g^x^)  =  x\  entonces 


g'(S) 


=1 


y  esto  contradice  la  hipótesis  |y'(x)|  <  1  en  ]a,b[. 


c.)  La  idea  aquí  es  usar  la  hipótesis  y  el  teorema  del  valor  medio  para  establecer  la  desigualdad  \xn  —  xn+\\  < 
kn  | Xq  —  x¡  | .  Aplicando  esta  desigualdad  a  xn,xn+x,...,xn+rn-n  llegamos  a  la  desigualdad 


xm  —  xn\  <  \x0  -  xx\\ k"(l+k  +  k2...  +  km  "  1)| 


y  concluimos  el  resultado  tomando  límites  a  ambos  lados  con  m  — >  00. 


Según  las  hipótesis  y  de  acuerdo  a  los  enunciados  en  a.)  y  b.)  ya  sabemos  que  y  tiene  un  único  punto  fijo  x*  en 
[a,b].  Primero  vamos  a  mostrar  que  lim  g(xn)  —  x*  con  xq  G  [a,b]  arbitrario. 
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Sabemos  que  xq  G  [a,b]  y  xn  =  g(xn_\)  G  [a,b\,n  —  1,2,...  Ahora,  de  acuerdo  al  teorema  del  valor  medio,  existe 
£]«,&[  tal  que 


x*  -x„+i|  =  |g(x*)  -g(x„)|  <  |g'(£„)||x*  —  xn\,  n  —  0,1,... 


Como  |g'(x)|  <  fc  <  1  en  ]«,&[,  entonces 


|g(**)  -g(*n)|  <k\x* -xn\,  n  —  0,1,... 


Luego 


x*  —  x„_|_x I  <  k\x*  —  xn\  <  k1  |x*  —  x„_i|  <  fc3|x*  —  xn_2|  <  ...  <  kn+1  |x*  —  xg 


por  lo  que 


\x*  —  X„+i|  <  fc"  +  1  ]x*  —  Xg| 


Finalmente,  como  0  <  k  <  1  entonces  usando  el  teorema  de  intercalación  llegamos  a  que 


lim  xn  =  x* . 
£—>■00 


Para  mostrar  la  última  afirmación  del  teorema  aplicamos  el  razonamiento  anterior  con  |xn+i  —  x„|  en  vez  de 
|x*  —  xn+i  | .  Por  el  teorema  del  valor  medio,  existe  £  ]a,b[  tal  que 


x„-xn+i|  =  |g(x„_i)  -g(xn) I  <  |g'(£n)||xn_i  -xn\,  n  =  1,2,... 


por  lo  que 


xn  -xn+1|  <k\xn_i  -  x„|  <  k2\xn_2  -x„_x|  <  k3 |x„_3  -  x„_2|  <  ...  <  fc”|x0  -xa 


es  decir 


xn  —  X„_|_x  |  <  fcH|xg  —  Xi 


(4.4) 


Luego,  si  m  >  n  >  1  (usaremos  los  números  n,n  +  l,n  +  2,...,n  +  m  —  n) 
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\xm  Xn\  —  \Xm  %m— 1  S-  %m— 1  %m— 2  “1“  %m—2  “1“  •••  “1“  -^n+1  | 


S:  |^m  %m— 1 1  ~b  |^m— 1  Xm— 2\  "h  •••  “H  | 

<  A:m_1|xo  —  x\\  +  km~2\xo  —  xi\  +  ...  +  kn\xo  —  xi|,  por  (4.4) 

<  |x0  —  X\  1 1 km~l  +  km~2  +  ...+kn I  =  |*o  -  *1 1  \kn  +  kn+1  +  ...  +  km~l 

<  |*o-  *!||]fc"(l  +fc  +  fc2...+fcm-”-1)| 


Ahora  si  tomamos  n  fijo  ( xn  sería  una  constante)  tomando  límites  a  ambos  lados  de  la  desigualdad  y  haciendo 
m  — >  oo 


x  —  x„ 


=  lim 

m — >-cx 


|xm  —  Xf¡  |  <  Ixo-XlirE^ 
i=l 


kn 

Y^|xo-xi 


con  lo  que  |x*  —  x„|  < 


1 

1  —  Y 


kn 

1-k 


\xq  —  Xi|.  Note  que  usamos  la  fórmula  (serie  geométrica)  1 


,  Ir  I  <  1. 


La  pregunta  natural  es:  ¿Si  |y'(x)|  >  1  en  ]a,b[  entonces  hay  divergencia? 


Si  g(x*)  =  x*  y  si  x„+i  =  g(xn)  entonces  restando  x*  a  ambos  lados  tenemos 


Xn+i-X*  =  g(Xn)~g(x*) 

=  g(x„) -g(x„)  +g'($n)(xn -X*),  £n  entre  x*  y  xn 
=  g'(£n)(*»-**) 

.-.  |x„+i-x*|  =  |g'(f„)||(xn  -x*)|. 

Si  es  continua,  |y/(£JÍ)|  — >  |g/(x*}|  y  entonces  no  habría  convergencia  si  |y;  (x*)|  >  1,  excepto  que  algún 

x¿  =  x* . 

Sea  m>  1  y  gv\x*)  —0,j  —  —  1  y  g-m'1  (x*)  7^  0,  entonces  la  iteración  de  punto  fijo  siempre  converge 

en  algún  vecindario  de  x*  ([24],  [20]). 
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^ - 

Aunque  |g/(x*)|  /  1,  podría  haber  convergencia:  Basta  con  que  algún  x¡  —  x*  :  Sea  f(x)  — 

f  es  continua  en  cualquier  vecindario  de  x  =  0  y  /'(O)  —  2  pero  la  iteración  de  punto  fijo  converge  para  cualquier 
xq  E  [— 1,1]  pues  para  k  suficientemente  grande,  |2fcXo |  >  1,  así  x¡,  —  x^+i  —  ...  =  0. 


í  2x  si  |x|  <  1 
\  0  si  |x|  >  1 


La  sucesión  a\  —  \[2,  a 2  =  v/2V2,  «3  =  \/2V¿  ,■■■,  converge  a  2. 

Esta  sucesión  es  convergente  y  está  acotada  por  2  :  Para  probarlo  procedemos  por  inducción.  Observe  que 
an  —  \j'l  1 ,  n  —  2,3,...  entonces  como  la  exponencial  ax  ( a  >  1)  es  creciente,  se  tiene  an  es  creciente:  En  efecto, 

c¡2  >  ci\  pues  \¡2  >  \¡2.  Además  si  an  >  an_\  entonces  ít„+i  =  x/2.  "  >  \/2  "_1  =  an 

an  <  2,  n  —  1,2,...:  En  efecto,  a\  —  \¡2  <  2.  Además  si  an  <  2  entonces  an+\  —  \¡2a"  <  x/2.2  —  2. 

Para  establecer  la  convergencia,  usamos  un  argumento  basado  en  los  teoremas  de  punto  fijo.  Si  an  converge  a  x* 
entonces  tenemos  los  dos  límites 

lim(v/2)a »  -  V2X* 

n—too 

lim  ( V2)a "  —  limí?„+i  =  x* 

n—¥co  n— >00 

con  lo  que  x*  es  una  de  las  soluciones  de  la  ecuación  \/2X  =  x  en  [0,2].  Claramente,  x*  =  2  es  una  solución. 
Además  es  la  única  solución  [0,2]  pues  la  función  g(x)  =  \fí  cumple  las  condiciones  del  teorema  de  punto  fijo 

en  este  intervalo.  En  efecto,  como  g  es  creciente,  0  <  g(x)  <  g( 2)  —  2  si  x  E  [0,2]  y  en  este  mismo  intervalo, 

|g,(x)|  —  V2.X  ■  ln(-\/2)  <2\n(\/2)  conloque  [^(x)]  <1  en  ]0,2[  por  ser  g'  creciente. 

Entonces  la  solución  x*  —  2  es  la  única  posible. 


V2 ■ 


V2 


Teorema  4.6  (Orden  de  Convergencia). 


Sea  x*  un  punto  fijo  de  g  y  sea  I£  —  {x  E  IR  :  |x  —  x*|  <  e}.  Asumamos  que  g  E  Cp[I£]  y  además 

£'(**)  =g”(x*)  =  Pero  g(p)(x*)^0 

Entonces,  si  la  iteración  de  punto  fijo  converge  a  x*,  el  orden  de  convergencia  es  p. 
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Prueba 

Hay  que  mostrar  que 


lim  ¡*n+1 

|  —  X*)P 


=  K,0<K<co 


Por  el  teorema  de  Taylor 


g(Xn)  =  g(x*)  +  (Xn-X*)g'(x*)  +  ...+  {X"  f)Vg{V\Zn) 


-1)! 


-  £(**)  + 


(Xn-X*)P„(p) 


SW^n) 


con  entre  x*  y  xn.  Puesto  que  g(xn)  =  xn+\  y  g(x*)  =  x*  entonces 


xn+ 1  ~ x~ 


(xn-x*)P  p! 


=  ¿giP)(Zn) 


luego,  conforme  x„  — >  x* ,  £„  — >  x*  pues  f  está  entre  xn  y  x*.  Por  la  continuidad  de  g^  en  x*  obtenemos 


lim  f,,+1  X*=±-glP)(x*)¿0 

W-> oo  (xn  —  X*)P  p\  * 


El  teorema  (4.6)  lo  podemos  usar  si  conocemos  x*. 

Ya  sabíamos  que  si  xo  >  0  y  A  >  0,  xn+\  —  0.5(x„  +  A/xn)  converge  a  \TK.  Ahora  podemos  establecer  el  orden  de 
convergencia  de  una  manera  más  sencilla:  Sea  g(x)  —  0.5(x  +  A/ x).  g  y  g'  cumplen  las  condiciones  del  teorema  en 
un  vecindario  I£  =  {r  e  R  :  \x  -  \[A \  <  e}  :  Basta  tomar  e  >  0  tal  que  \J~A  —  e  >  0.  Ahora,  como  g' (\fA)  =  0  pero 
g" (\ÍA)  i=  0,  el  orden  de  convergencia  de  esta  sucesión  es  q  —  2. 


4.5 


El  método  de  Bisección 


Este  es  uno  de  los  métodos  más  sencillos  y  de  fácil  intuición,  para  resolver  ecuaciones  en  una  variable.  Se  basa  en 
el  Teorema  de  los  Valores  Intermedios,  el  cual  establece  que  toda  función  continua  /  en  un  intervalo  cerrado  [a,  b] 
(/  €  C[a,b] )  toma  todos  los  valores  que  se  hallan  entre  f(a)  y  f(b) .  Esto  es,  que  todo  valor  entre  f(a)  y  f(b)  es  la 
imagen  de  al  menos  un  valor  en  el  intervalo  [a,  b] . 
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En  caso  de  que  f(a)  y  f(b)  tengan  signos  opuestos  (es  decir,  f  (a)  ■  f(b)  <  0  ),  el  valor  cero  sería  un  valor  intermedio 
entre  f(a)  y  f(b),  por  lo  que  con  certeza  existe  un  x*  en  [a,b]  que  cumple  f(x* )  —  0.  De  esta  forma,  se  asegura  la 
existencia  de  al  menos  una  solución  de  la  ecuación  f(x)  —  0. 

El  método  consiste  en  lo  siguiente:  Supongamos  que  en  el  intervalo  [a,  b]  hay  un  cero  de  /.  Calculamos  el  punto 
medio  m  =  (a  +  b) /2  del  intervalo  [a,b].  A  continuación  calculamos  f(m).  En  caso  de  que  f(m)  sea  igual  a  cero,  ya 
hemos  encontrado  la  solución  buscada.  En  caso  de  que  no  lo  sea,  verificamos  si  f(tn)  tiene  signo  opuesto  al  de  f{a). 
Se  redefine  el  intervalo  [a,  b]  como  [a,  m  o  [m,  b]  según  se  haya  determinado  en  cuál  de  estos  intervalos  ocurre  un  cam¬ 
bio  de  signo.  A  este  nuevo  intervalo  se  le  aplica  el  mismo  procedimiento  y  así,  sucesivamente,  iremos  encerrando  la 
solución  en  un  intervalo  cada  vez  más  pequeño,  hasta  alcanzar  la  precisión  deseada. 

En  la  siguiente  figura  se  ilustra  el  procedimiento  descrito. 


El  procedimiento  construye  tres  sucesiones  an,bn  y  mn , 
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«Para  k  —  1,2,..., 


mk 


bk+ak 

2 


y 


[flfcA]  = 


K-iA-i]  si  f(ak_1)f(mk_1)>  0 
[«it-i/W/t-i]  si  f  f  (rnk—\)  <  0 


9  Estimación  del  error:  El  error  exacto  en  el  fc-ésimo 
paso  es  |  mk  —  x*\.  Geométricamente  se  puede  ver  que 
esto  es  menos  que  la  mitad  del  intervalo  [ak,  bk] ,  es  decir 


I  mk 


< 


h  -  ak 


b  —  a 
2k 


Figura  4.6  Estimación  del  error  en  bisección. 


Aplicar  el  método  de  bisección  a  la  ecuación  x2  =  cos(x)  +  1  en  [1,2] 

9  Debemos  reescribir  la  ecuación  como  x2  —  cos(x)  —  1=0.  En  este  caso,  /(x)  =  x2  —  cos(x)  —  1.  Esta  función 
tiene  un  cero  en  el  intervalo  [1,2]  pues,  efectivamente  /( 1)  ■  /( 2)  =  —1.84575...  <  0. 

Calculemos  ahora  ak,  b¡(  y  mk  así  como  la  estimación  del  error. 

k  =  1 :  a\—  1,  bi  =  2  y  ni\  =  ñl  ^  — 1  =  1.5.  Error  <  0.5 

k  =  2:  /(íij)  •/(m1)  =  -0.637158  <  0, 

«2  =  1,  &2  =  1-5  y  77/2  =  2  ^  2  =  1.25. 
fc  =  3  :  /(a2)  •  f(m2)  =  -0.13355064  <  0, 

a3  =  1,  b3  =  1.25  y  m3  =  =  1.125. 

k  =  4:  f(a3)-f{m3)=  0,02740730  >  0, 

«4  =  1.125,  fo4  =  1.25  y  tw4  =  y  =  1,1875 

fc  =  44  :  m44  =  1.17650193990184.  Error  <  2.84  x  ÍO^14 

9  Así,  mu  =  1.17650193990184  aproxima  el  cero  de  /(x)  =  x2  —  cos(x)  —  1  en  [1,2]  con  un  error  <  2,84  x  10“14 


Error  <  0.25 


Error  <  0.125 


Error  <  0.0625 
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Ejemplo  4.13  (continuación). 


Podemos  poner  estos  cálculos  (junto  con  otros  adicionales)  en  una  tabla 


k 

ak 

h 

mk 

Error  Estimado 

1 

1 

2 

1.5 

0.5 

2 

1 

1.5 

1.25 

0.25 

3 

1 

1.25 

1.125 

0.125 

4 

1.125 

1.25 

1.1875 

0.0625 

44 

1.176501939 

1.176501939 

1.176501939 

2.84217  xl0~14 

4.6 


Algoritmo  e  Implementación. 


En  la  implementación  del  método  de  bisección,  en  vez  de  usar  f(a)f(m)  <  0  ponemos  sgn (/(«))  <>  sgn (f(m))r  de 
esta  manera  nos  ganamos  una  multiplicación  (que  es  claramente  innecesaria). 


En  bisección  es  mejor  calcular  m  como  m  —a  +  (b—  a)/ 2.  Con  esto  somos  consistentes  con  la  estrategia  general  (en 
análisis  numérico)  de  calcular  una  cantidad  agregando  una  corrección  a  la  aproximación  anterior.  Además  ganamos 
algo  en  precisión. 


El  criterio  de  parada  es:  Detenerse  en  mk  si 


h  ~  ak 
2 


b  —  a 
2k 


<S 


Algoritmo  4.2:  Algoritmo  de  Bisección. 

Datos:  a,b,S  y  /  continua  en  [a,b]  con  f(a)f(b)  <  0. 
Salida:  Una  aproximación  m  de  un  cero  x*  de  /  en  \a,b[. 

1  k  —  0; 

2  repeat 

3  m  —  a  +  0.5(b  —  a); 

4  dx  —  (b  —  a)  12) 

5  if  Sgn(/(«))  <>  Sgn(/(m))  then 

6  |  b  —  nv, 

7  else 

8  |  a  =  m 

9  k=k+ 1 
ío  until  dx  <  5  ; 
íi  return  m 


Implementación  Basic.  La  implementación  Basic  (Excel,  OpenOffice,  Libreoffice)  requiere  definir  la  función  /  en 
el  código.  La  implementación  es  directa. 
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Código  VBA  4.4:  Método  de  Bisección 


Function  f  (x) 

f=0 . 2*Sin  (16*x)  -x+1 . 75  'Tiene  un  único  cero  en  [1,2] 

End  Function 


Function  Bisección  (a,  b,  delta) 

Dim  k,  al,bl,  m,  dx 

k  =  0 
al  =  a 
bl  =  b 

Do 

m  =  al  +  0.5  *  (bl  -  al) 
dx  =  (bl  -  al)  /  2 
If  Sgn(f(al))  <>  Sgn(f(m))  Then 
bl  =  m 

Else:  al  =  m 
End  If 

k  =  k  +  1 

Loop  Until  dx  <=  delta 
Bisección  =  m 

End  function 


Hoja  para  Bisección.  A  continuación  aparece  la  "página  principal"  de  una  hoja  para  Excel  y  otra  para  Libreoffice  (y 
Openffice).  La  implementación  recibe  los  valores  n,  b  y  ó. 


4 

5 

6 

7 

a  b 

Tolerancia 

ak 

mk 

bk 

Error  Estimado 

8 

-0.69  -0.67 

I _ 0,0000005 

-0,6900000000000000 

-0.6800000000000000 

-0,6700000000000000 

0,0100000000000000 

9 

1 

l 

-0,6900000000000000 

-0,6850000000000000 

-0,6800000000000000 

0,0050000000000000 

10 

-0,6850000000000000 

-0.6825000000000000 

-0,6800000000000000 

0,0025000000000000 

11 

-0,6825000000000000 

-0,6812500000000000 

-0,6800000000000000 

0,0012500000000000 

12 

-0,6825000000000000 

-0,6818750000000000 

-0,6812500000000000 

0,0006250000000000 

13 

-0.6825000000000000 

-0,6821875000000000 

-0,6818750000000000 

0,0003125000000000 

14 

-0,6825000000000000 

-0,6823437500000000 

-0,6821875000000000 

0,0001562500000000 

15 

-0,6823437500000000 

-0,6822656250000000 

-0,6821875000000000 

0,0000781250000000 

16 

-0,6823437500000000 

-0,6823046875000000 

-0,6822656250000000 

0,0000390625000000 

Figura  4.7  Hoja  Excel  para  Bisección. 


Software: 


Cuadernos  LibreOffice  y  Excel 


Código  VBA  4.5:  Cuaderno  Excel 


Private  Sub  CommandButtonl_Click  ( )  'botón  del  cuaderno 
Dim  a,  b,  delta 

a  =  Cells  (8,  1) 
b  =  Cells  (8,  2) 
delta  =  Cells  (8,  3) 
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Cali  B  iseccion(a,  b,  delta) 

End  Sub 


Código  VBA  4.6:  Cuaderno  Libreoffice 

Sub  Main 

'Subrutina  principal 
'Cargar  la  biblioteca  BblMatematica 

BasicLibraries . loadLibrary ( "BblMatematica"  ) 

Dim  a 

,  b,  delta 

' function 

cells  está  en  BblMatematica 

a 

cells ( "A8 " 

) .valué 

b 

cells  ("B8" 

) .Valué 

delta  = 

cells  ("C8" 

) .Valué 

CleanRange (3, 7, 4)  ' 

Limpiar  corrida  anterior .  Esta  función  está  en  BblMatematica 

Cali  Bisección (a, b. 

,  delta) 

End  Sub 

4.7 


Bisección:  Criterio  de  Parada  y  Número  de  Iteraciones. 


Sea  x*  es  el  único  cero  de  /  en  [a,b).  En  la  /c-ésima  iteración,  al  aproximar  x*  con  m/c  se  tiene  que 


\mk-x*\  <  b-^r,  k  —  1,2,... 


entonces, 

9  Si  tenemos  una  tolerancia  5  >  0,  y  si  queremos  cortar  la  sucesión  m„  en  la  /c-ésima  iteración  ng  de  tal  manera 
que  |m;t  —  x*  |  <  ó  entonces  podemos  estimar  el  número  k  de  iteraciones  con 


|  m¡ t  —  x* 


< 


b  —  a 
2k 


<S 


Tomando  logaritmo  natural  a  ambos  lados  de 


—  <  ó  obtenemos 
2 k  ~ 


k  >  ln(^)  /ln2 


iteraciones 


excepto  que  en  algún  momento  /(wq)  =  0  para  algún  j  <k 

De  aquí  podemos  deducir  que  si  \b  —  a\  <1  y  si  ó  —  2  52  entonces  el  número  de  iteraciones  necesarias  para 
alcanzar  esta  tolerancia  S  es  como  mínimo  k  =  52. 
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b  —  a 


9  Observe  que  2  3  4  «  10  1  y  en  general  2  3  4  d  <10  .  Como  |  —  x*  \  <  k  ,  esto  nos  dice  que  si  b  —  a  <  1 

entonces  bisección  se  gana  un  dígito  decimal  cada  3.4  iteraciones  aproximadamente. 


Al  aplicar  el  algoritmo  de  bisección  a  una  función  continua  /  con  un  único  cero  en  el  intervalo  [—2,1] ,  si  queremos 
que  el  error  de  aproximación  sea  <  0.00005  =  0.5  x  10-4 ,  el  número  k  de  iteraciones  debe  cumplir 


/3  ■  104\ 

k  >  ln  f  — q-^—  J  /ln2  =  15.873 

por  lo  que  deben  realizarse  por  lo  menos  16  iteraciones.  Verifíquelo! 


Notas. 

a. )  El  método  de  bisección,  la  única  información  que  usa  es  el  signo  de  /.  El  número  de  iteraciones  no  depende, 

en  general,  de  la  función  /,  depende  del  intervalo  y  la  tolerancia  5.  La  única  manera  de  que  el  número  de 
iteraciones  sea  menor  es  que  se  dé  el  caso  f(nij )  =  0,  para  algún  j  <  k. 

b. )  Aunque  el  método  de  bisección  es  robusto  al  nivel  de  la  precisión  de  la  máquina,  puede  pasar  que  la  aproxi¬ 

mación  no  quede  numéricamente  bien  determinada  si  la  función  es  muy  "aplanada". 
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4.12  Si  /  tienen  un  único  cero  en  [—2,5],  ¿Cuántas  iteraciones  de  bisección  se  deben  hacer  para  aproximar  este  cero 
con  error  absoluto  <  0.5  x  10”4? 

4.13  Resuelva  e3(*_1)  —  ln(x  —  l)2  +1  —  0  con  al  menos  cinco  decimales  exactos. 

4.14  Resuelva  e3*  —  ln(x2  +1)  —  30  =  0  con  al  menos  cinco  decimales  exactos. 

4.15  Como  \[A  es  una  solución  de  la  ecuación  x2  —  A  —  0,  podemos  usar  el  método  de  bisección  para  estimar  \/A. 
Estimar  \J 3  y  \/l000999  con  al  menos  cinco  decimales  exactos. 

4.16  (x  —  l)2  —  0  tiene  claramente  una  raíz  en  [0,2],  ¿Podemos  usar  bisección  para  aproximarla? 

4.17  Sea  /(x)  =  x3  —  2cos(x)  —  3 .  Según  el  teorema  de  Taylor 

/(a)  =/(x)  +/'(x)(a  —  x)  +  ^(a  —  x)2/"(f),  con  f  entre  xy  a 
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Si  a  —  7t/4  y  x  —  1,  aproximar  £  con  un  error  <  0.5  x  10 


4.18  x  —  2  es  un  cero  del  polinomio  P(x )  —  —1536  +  6272x  —  11328x2  +  11872x3  —  7952x4  +  3528x5  —  1036x6  + 
1 94 x7  —  21  x8  +  x9.  Aproxime  esta  raíz,  con  un  intervalo  adecuado. 

4.19  x  =  1  es  un  cero  del  polinomio  P(x)  =  2  —  19 x  +  81  x2  —  204x3  +  336 x4  —  378x5  +  294x6  —  156x7  +  54x8  — 
11  x9  +  x10.  Aproxime  esta  raíz,  con  un  intervalo  adecuado. 


4.20  Verifique  que  |  \  =  k  ük  si  k  >  2. 

4.21  (*)  Supongamos  que  modificamos  el  método  de  bisección  de  la  siguiente  manera:  En  cada  iteración,  en  vez  de 
dividir  el  intervalo  en  dos,  lo  dividimos  en  tres  partes  iguales  y,  como  en  bisección,  nos  quedamos  con  el  intervalo 
donde  hay  cambio  de  signo  para  proseguir  con  la  nueva  división  en  tres  partes  iguales  y  así  sucesivamente.  ¿Mejora 
este  procedimiento  la  eficiencia  de  bisección? 


4.8 


Bisección:  Teorema  de  Convergencia.  Orden  de  Convergencia. 


Teorema  4.7  (Convergencia  del  método  de  bisección). 


Sea  /  E  C[a,b],  con  f(a)f(b)  <  0.  Sea  la  sucesión  de  puntos  medios  de  los  subintervalos  generados  por  el 

método  de  bisección  descrito  anteriormente.  Entonces  existe  un  número  x*  G  [a,  b]  tal  que  f(x* )  =  0  y  además 


I*  -  mk+i  I  < 


b  —  a 
2Í+T' 


k  =  0,1,... 


en  particular,  lim  «z¿-  —  x* . 

k— >oo 


Prueba.  En  la  k— ésima  iteración,  el  método  de  bisección  ha  construido  una  sucesión  de  intervalos  ^k]  C  [ak-i>  i’k-l]  <~ 

...  C  [a0/b0}  con  las  siguientes  propiedades. 


ao  <  ai  <  •••  <  ak  <  i’o  (4-5) 

«o  <  bk  <  ...  <  b\  <  bo  (4.6) 

bk+ 1  -  afc+i  =  \  («*  ~  h)>  k>0  (4.7) 

Las  ecuaciones  (4.5)  y  (4.6)  indican  que  las  sucesiones  {an}  y  {  b„  }  son  monótonas  y  acotadas,  por  tanto  convergen. 
Aplicando  repetidamente  (4.7)  obtenemos 


h+l  -  ak+ 1  —  (fl0  _  bo) 


(4.8) 


lim  (bk+i  —  cik+i)  —  0  =>  lim  b %  —  lim  a ¡t 

k—>co  k—>oo  k—>oo 


entonces. 
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Si  x*  =  lim  fljt/  entonces  b^  <  <  %  =>  lim  m —  x* . 

/c— >oo  k— >oo 

En  [a,  fc>J  podrían  haber  varios  ceros!.  Nos  interesa  un  cero  en  particular:  x*  es  un  cero  de  /  pues  aplicando  límites  a 
ambos  lados  de  f(an)f(bn)  <  O  obtenemos  [f(x *)]2  <  O  de  donde  /(x*)  —  0. 

Finalmente,  para  todo  k>  0,  x*  G  [a¡t,fz/t]  =  [«/t/wb+i]  U  Como  x*  debe  estar  en  alguna  de  las  dos  mitades 

entonces,  usando  (4.8)  obtenemos, 

i*  |  .  1  |,  11  .  b  —  a 

I*  <  2  —  «itl  <  j  ^k(ao~h)  = 


Orden  de  Convergencia.  El  método  de  bisección  es  un  método  seguro  pero  relativamente  lento.  En  general,  su 
orden  de  convergencia  no  es  lineal  ([10])  aunque,  en  promedio,  se  comporta  como  si  lo  fuera  pues,  si  b  —  a  <  1,  gana  un 
dígito  decimal  cada  3.4  iteraciones  aproximadamente. 


4.9 


Acerca  del  Criterio  de  Parada  en  métodos  iterativos. 


No  todos  los  métodos  que  estamos  estudiando  tienen  una  manera  sencilla  de  estimar  el  error  en  cada  aproximación. 
La  práctica  computacional  requiere  de  un  criterio  de  parada  que  termine  la  iteración.  Esto  fue  sencillo  de  establecer 
para  bisección.  Pero  en  los  métodos  que  siguen  no  es  así. 

El  criterio  de  parada  que  vamos  a  usar  es:  parar  la  iteración  una  vez  que  se  alcance  la  exactitud  deseada. 

Idealmente  la  iteración  se  detiene  tan  pronto  como  \xn  —  x*  |  sea  menor  que  una  tolerancia  pre-establecida.  Como  x* 
no  es  conocida,  usualmente  se  reemplaza  \xn  —  x*  |  por  \xn  —  xn_i¡.  Una  opción  prudente  es  establecer  como  criterio 
de  parada 


|x„  Xn—\  |  <  ¿l|x„|  +Ó2 

Si  S\  —  0  obtenemos  una  estimación  del  error  absoluto  y  si  ¿2  =  0  obtenemos  una  estimación  del  error  relativo.  Así 
que  podemos  poner  ¿i  =  ¿2  =  Con  esta  elección  si  |x„  |  es  pequeño  o  moderadamente  grande,  efectivamente  con¬ 
trolamos  el  error  absoluto  mientras  que  si  |x„  |  es  muy  grande  el  que  se  ve  controlado  es  el  error  relativo. 

A  continuación  se  hacen  algunas  observaciones  sobre  algunas  variantes  que  se  usan  como  criterio  de  parada. 

a. )  \xfr  —  Xfc_i  |  <S\.  El  error  absoluto  ( |x/c  —  x*  \ )  en  la  /c-ésima  aproximación  se  estima  con  X/c  —  x^_i  \,  es  decir  se 

establece  una  tolerancia  ¿1  como  criterio  de  parada:  [x¿  —  xy._  |  |  <  5\. 

Un  peligro  con  este  criterio  de  parada  es  que  |x¿-  —  x^-i  |  puede  ser  pequeño  pero  f{xk)  no  tan  pequeño  como 
uno  desearía  o  aún  que  X/v  todavía  no  esté  cercano  a  la  raíz  (ver  el  ejemplo  (4.28)). 

b. )  |/(x;t)  |  <  e.  Un  peligro  con  este  criterio  de  parada  es  que  aunque  /(x¿-)  sea  pequeño,  puede  ser  que  x¿  no  esté 

tan  cerca  de  la  raíz  como  uno  desearía. 
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2\xk  —  xjt_il  2|xj- —  2|xj- — 

c.)  — ¡ — ¡ - <  ¿9-  El  error  relativo  en  la  K-ésima  aproximación  se  estima  con  . — ¡ - ¡ - r  o  aleo  como  — ¡ — ¡ - 

1**1 +e  F  |*k|  +  |**-il  6  |*¡t|+ e 

donde  £  es  un  número  real  suficientemente  pequeño.  El  error  relativo  nos  da  una  mejor  visión  del  compor¬ 
tamiento  de  las  diferencias  \xk  —  xk+k  |  si  xk  está  tomando  valores  muy  pequeños  o  valores  muy  grandes. 


d.)  También  se  usa  el  siguiente  criterio:  detener  el  proceso  la  primera  vez  que 


\Xk—2  —  **— i|  >  |*k— 1  —  xú  y  |*fc-l  ~Xk\  <¿ 


Este  criterio  es  útil  sobre  todo  cuando  f'(xj)  es  tan  pequeño  que  el  error  se  ve  severamente  afectado  por  el 
redondeo  de  la  máquina  y  éstas  diferencias  varían  aleatoriamente.  Este  tipo  de  comportamiento  se  da  por  ejem¬ 
plo,  cuando  aproximamos  la  raíz  x  —  2  de  P(x)  —  —1536  +  6272x  —  11328x2  +  11872x3  —  7952x4  +  3528x5  — 
1036x6  +  194x7  —  21x8  +  x 9  (figura  4.8). 


En  estos  casos,  no  se  puede  hacer  algo  mejor  con  ningún  método  de  este  capítulo  ni  aún  con  métodos  especial¬ 
izados  en  polinomios,  como  es  el  caso  de  P.  Se  debe  aceptar  el  último  valor  xn  calculado  como  satisfactorio. 
Una  alternativa  que  evita  estos  problemas  (basada  en  ideas  más  avanzadas)  se  puede  ver  en  [17] 


Figura  4.8  Gráfica  de  P  (x ) . 


En  general,  podríamos  usar  un  criterio  de  parada  que 
tome  en  cuenta  solo  uno  de  estos  criterios  o  que  tome 
en  cuenta  estos  tres  criterios,  es  decir,  aceptamos  como 
aproximación  de  la  raíz  a  xk  si 

l**-*fc-il  <¿Okl  +  i)  y  \f(xk)\  <  e 

junto  con  un  número  máximo  de  iteraciones. 


Figura  4.9  Región  para  un  criterio  de  parada  que  toma  en  cuenta  los  tres 
criterios  anteriores 
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4.10  El  Método  de  Newton 


El  método  de  Newton  (llamado  a  veces  método  de  Newton-Raphson7)  es  uno  de  los  métodos  que  muestra  mejor 
velocidad  de  convergencia  llegando  (bajo  ciertas  condiciones)  a  duplicar,  en  cada  iteración,  los  decimales  exactos. 

Si  /  es  una  función  tal  que  /,  f  y  f"  existen  y  son  continuas  en  un  intervalo  I  y  si  un  cero  x*  de  /  está  en  I,  se 
puede  construir  una  sucesión  {xn  }  de  aproximaciones,  que  converge  a  x*  (bajo  ciertas  condiciones)  de  la  manera 
que  se  describe  a  continuación:  Si  xq  está  suficientemente  cercano  al  cero  x* ,  entonces  supogamos  que  h  es  la  corrección 
que  necesita  xq  para  alcanzar  a  x* ,  es  decir,  Xq  +  h  =  x*  y  f(xo  +  h)  —  0.  Como 

0  =  f(x0  +  h)  »/(x0)  +hf'{x0) 


entonces  'despejamos'  la  corrección  h, 


/(*  o) 

/'(* o) 


De  esta  manera,  una  aproximación  corregida  de  xq  sería 


X\  =  Xq 


f(x  o) 

r(x0y 


Aplicando  el  mismo  razonamiento  a  x\  obtendríamos  la  aproximación  xj_  —  x\  — 


f(x  l) 

/'(* l) 


y  así  sucesivamente. 


Geométricamente  se  vería  así:  Partiendo  de  una  aproximación  Xq  de  un  cero  x*  de  /,  entonces  X\  es  la  inter¬ 
sección,  de  la  recta  tangente  a  /  en  xq,  con  el  eje  X.  Cuando  se  ha  calculado  una  aproximación  xn ,  la  siguiente 
aproximación  xn+i  se  obtiene  hallando  la  intersección  con  el  eje  X  de  la  recta  tangente  en  el  punto  (xn,f(xn)).  El 
proceso  se  muestra  en  las  figuras  (4.10),  (4.11)  y  (4.12). 


La  intersección  de  la  tangente  con  el  eje  X  se  obtiene  resolviendo  y  —  0.  Como  la  ecuación  de  una  recta  de  pendiente 
m  que  pasa  por  (xo,yo)  es  y  —  m(x  —  xo)  +  yo  entonces  la  ecuación  de  la  recta  tangente  en  (xn,yn)  es 

y=  f'(xn)(x-xn)+yn 


Al  despejar  el  valor  de  x,  se  obtiene  x„+i  : 


xn+ 1  —  xn 


f  (xn) 

f(xn) 


En  general,  en  la  fórmula  xn+\  —  xn  —  j -  ,  f(xn)  no  presenta  grande  variaciones  mientras  que  f(xn)  puede 


/'(*») 


/(*») 


variar  fuertemente:  Si  f'(xn)  es  grande  entonces  la  corrección  — — -  que  se  le  aplica  a  xn  para  aproximar  el  cero  es 

/  [Xn) 


En  la  literatura  inglesa  se  acostumbra  llamar  al  método  de  Newton,  método  de  Newton-Raphson.  El  método  de  Newton  aparece  en 
su  libro  'Method  of  Fluxions"  escrito  en  1671  pero  publicado  hasta  1736.  El  método  fue  publicado  por  primera  vez  en  un  libro  de  J. 
Raphson  en  1690.  Se  dice  que  Raphson  tuvo  acceso  al  manuscrito  de  Newton.  En  todo  caso  ni  Newton  ni  Raphson  mencionan  las 
derivadas.  El  primero  que  dio  una  descripción  del  método  de  Newton  usando  derivadas  fue  T.  Simpson  en  1740. 


EJERCICIOS  109 


pequeña.  Por  otro  lado,  si  f'[x n)  es  pequeña  entonces  la  corrección  sería  mayor  por  lo  que  aproximar  un  cero  de  / 
puede  ser  un  proceso  lento  o  a  veces  imposible. 


Figura  4.11  Obteniendo  X\,X2,— 


Figura  4.12  Representación  simplificada 


La  ecuación  x2  —  cos(x)  —  1—0  tiene  una  solución  x*  en  [1,2].  Debemos  tomar  una  aproximación  inicial,  digamos 
xo  =  1.5. 

/(x)  —  x2  —  cos(x)  —  1  y  f'{x)  =  1x  +  sen(x).  Entonces  el  esquema  iterativo  es 

x2  —  cos(x„)  —  1 
2x„  +  sen(x„) 


%n+ 1  —  %n 
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Ejemplo  4.15  (continuación). 


n  =  0  :  xq  —  1.5 


(1  =  1;  x,=x0- j¡^  =  15- =  1.204999. 


Error  <  \x\  —  x0  \  =  0,295 

n  =  2 


r  _  r  /(* i)  _  i  ,nfnn  /(l. 204999)  _  on 
2  _  1  “  J7^)  _  °  "  “  /'( 1.204999)  ~  L176789' 


Error  <  \x¿  —  x\  \  —  0,0282 

o  f(x  2) 

3:  X5  =  X2~7Ü^ 


n 


f(xi)  /(l. 176789)  _ 

ffe)  -  L176789  “  /'(l. 176789)  ~  L1765019- 


Error  <  |  X3  —  X2I  =  0,000287 

Podemos  tabular  esta  información  en  una  tabla  agregando  más  iteraciones.  Si  usamos  Excel  obtenemos 


Xn-\-\ 

\xn+l  ~  X„ | 

1.20499955540054 

0.295000445 

1.17678931926590 

0.028210236 

1.17650196994274 

0.000287349 

1.17650193990183 

3.004  xl0~8 

1.17650193990183 

4.440  xl0~16 

Compare  con  la  solución  x*  —  1.17650193990183  (exacta  en  sus  catorce  decimales)  y  observe  como,  aproximada¬ 
mente,  se  duplican  los  decimales  correctos  desde  la  segunda  iteración. 

Las  limitaciones  numéricas  de  Excel  hacen  que  la  iteración  4  y  5  repitan  valor.  Usando  Mathematica  podemos  obtener 
la  aproximación  (con  34  dígitos)  usando  el  comando  FindRoot  (este  comando  utiliza  un  método  híbrido:  el  método 
'amortiguado'  de  Newton,  el  método  de  la  secante  y  el  método  de  Brent.) 

In[]:=  FindRoot[xA2  -  Cos[x]  -  1  ==  0,  {x,  1.5}, 

AccuracyGoal  ->  20, 

WorkingPrecision  ->  34,  Maxlterations  ->  6] 

Out [ ] =  x->  1.176501939901832400447377268731041 


Algunas  veces  el  método  de  Newton  no  converge.  En  las  gráficas  de  la  figura  que  sigue  se  muestran  dos  situaciones 
donde  no  hay  convergencia. 


EJERCICIOS 


111 


Figura  4.13  Situaciones  donde  el  método  de  Newton  no  converge 


Convergencia  global.  La  convergencia  del  método  de  Newton  es  ¡ocal,  es  decir,  como  aproximación  inicial  de  debe 
elegir  un  Xq  que  este  "suficientemente  cercano"  a  x* .  Sin  embargo  hay  teoremas  que  dan  criterios  para  la  conver¬ 
gencia  global  (para  ciertos  tipos  de  funciones). Por  ejemplo,  si  en  el  intervalo  I  —  [ a,b ]  f  tiene  un  único  cero  y  si  f  y 
f"  conservan  el  signo,  entonces  una  buena  aproximación  inicial  es  cualquier  xq  G  [fl,b]  para  el  cual  f{xo)f"(xo)  >  0 
(ver  figura). 


En  el  ejemplo  (4.15),  Xo  —  1-5  fue  una  buena  aproximación  pues  Xq  está  en  [1,2]  y  en  este  intervalo  f  y  f"  son 
positivas  y  además  /(1.5)/"(1.5)  >  0. 


Uno  de  los  peligros  del  método  de  Newton  es  no  tomar  una  aproximación  inicial  Xq  suficientemente  cercana  a 
x*.  Para  ver  esto  consideremos  la  ecuación  x20  —  1=0,  x  >  0.  Esta  ecuación  tiene  una  única  solución  x*  —  1.  El 
esquema  iterativo  es 


19  1 

Xn+1~2ÓXn  +  ^ 
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Ejemplo  4.16  (continuación). 


Si  tomamos  la  aproximación  inicial  Xq  —  0.5  entonces 


Xn 

Xl 

=  26214.9 

*2 

=  24904.1 

*3 

=  23658.9 

X4 

=  22476. 

X5 

=  21352.2 

-*-200 

=  1.01028 

De  hecho,  si  n  es  grande  entonces  xn+\  ~  —  xn,  es  decir,  la  corrección  es  algo  pequeña  (casi  deja  igual  a  xn+] )  y 
toma  unas  200  iteraciones  llegar  cerca  de  la  raíz  x*  —  1. 

Si  tomamos  la  aproximación  inicial  xq  —  0.92  entonces  las  cosas  cambian  dramáticamente 


Xn 

Xl 

=  1.11778 

X2 

=  1.06792 

*3 

=  1.02887 

X4 

=  1.00654 

*5 

=  1.00039 

*6 

=  1.0000014308157694 

X7 

=  1.0000000000194484 

Ejemplo  4.18  (Sucesión  divergente). 


Si  a  la  ecuación  xe~x  —  0  le  aplicamos  el  método  de  Newton  con  xq  =  2,  obtenemos  una  sucesión  divergente. 
La  sucesión  se  aleja  rápidamente  de  la  raíz  x*  —  0.  En  cambio,  si  ponemos  xq  —  —0.4,  obtenemos  una  rápida 
convergencia. 


xo  =2 

Xn 

Error 

estimado 

X  X 
s  o 

II 

1 

O 

4^ 

Error 

estimado 

4 

2 

-0.114285714 

0.285714286 

5.333333333 

1.333333333 

-0.011721612 

0.102564103 

6.564102564 

1.230769231 

-0.000135804 

0.011585807 

7.743826066 

1.179723502 

-1.84403x  10~8 

0.000135786 

8.892109843 

1.148283777 

-3.40045  x  10~16 

1.84403  xl0~8 

10.01881867 

1.126708829 

-1.4791  lxlO-31 

3.40045  x  10~16 
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Ejemplo  4.17  (Ciclos) 


Consideremos  la  ecuación  sen(x)  =0,  x  <  f-.  Esta  ecuación  solo  tiene  la  solución  x*  =  0.  El  esquema  iterativo  es 

xn+i  =xn  -  tan (x„) 

Si  tomamos  Xq  tal  que  tan(xg)  =  2xg  entonces 

Xi  —  Xq  —  tan(xo)  =  —  xq 
X2  =  -xo  —  tan(— xo)  =  xo 

es  decir,  entramos  en  un  ciclo  (figura  4.14).  Observe  que 
tan(x0)  =2x0  =>  x0  =  1.16556... 

Figura  4.14  Ciclo 


4.11 


Método  de  Newton:  Algoritmo  e  Implementación. 


Algoritmo  4.3:  Método  de  Newton 
Datos:  /  €  C2[a,b],  x0,  S,  maxltr. 

Salida:  Si  la  iteración  converge,  una  aproximación  xn  de  un  cero  de  /  en  [ a,b ]  y  una  estimación  del  error. 


1  1  =  0; 

2  xk  =  x0; 

3  repeat 


dx  — 


f(*k) 


f'(xky 

xk+l  =xk-  dx; 
Xk  Xkjr\r 
k  —  k  +  í; 

8  until  dx  <  5  {\xk+ íl 

9  return  xk  y  dx 


1 )  or  k  <  maxltr  ; 


Implementación  en  Basic.  Una  implementación  directa  en  Basic  (Excel,  OpenOffice,  LibreOffice)  requiere  definir 


la  función  f  y  f  por  separado.  Observe  que  \xn+\  —  xn  \  — 


ñXn) 

/'(n 


Código  VBA  4.7:  Método  de  Newton  para  ecuaciones  no  lineales. 


Function  f  (x) 

f=  xA3+x+l  'Tiene  un  único  cero  en  [-1,0] 

End  Function 
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Function  Df  (x) 

Df=  3*xA2+l 

End  Function 


Function  MNewton(xx,  delta,  maxitr) 

Dim  xO,  xl,  k,  dx 

xO  =  xx 
k=0 

Do 

dx  =  f(xO)/Df(xO) 
xl  =  xO  -  dx 
xO  =  xl 
k=k+l 

Loop  Until  abs(dx)  <  delta  Or  k  >=  maxitr 
MNewton  =  xl 

End  Function 


Cuaderno  para  Excel,  LibreOffice  u  OpenOffice.  A  continuación  se  muestra  un  cuaderno  y  el  código  en  Excel  y 
en  Cale  de  LibreOffice  u  OpenOffice. 


Software: 


Cuadernos  LibreOffice  y  Excel 


Código  VBA  4.8:  Método  de  Newton.  Cuaderno  LibreOffice  u  OpenOffice 


Sub  Main  'Subrutina  principal 

'Cargar  la  biblioteca  BblMatematica 
BasicLibraries . loadLibrary ( "BblMatematica"  ) 

Dim  xO,  delta,  maxitr 

'function  cells  está  en  BblMatematica 
xO  =  Cells ( "A9" ) .Valué 

delta  =  Cells ( "B9" ) .Valué 

maxitr  =  Cells ( "C9" ) .Valué 

'Limpieza  de  celdas  del  cálculo  anterior  -  Cleanrange  está  en  BblMatematica 
CleanRange (3,9,2) 
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Cells ("C7") .Value=  MNewton(xO,  delta,  maxitr) 

End  Sub 


Function  f  (x) 


Cuaderno  para  Excel  con  clsmathparser.  Esta  implementación  usa  clsMathP arser  para  leer  y  evaluar  la  función 
/  y  su  derivada.  La  función  recibe  las  funciones  f  y  f  como  "string"  y  los  valores  xq,  S  y  maxitr. 


Software: 


Cuadernos  LibreOffice  y  Excel 


Código  VBA  4.9:  Cuaderno  Excel  con  clsMathParser 


Private  Sub  CommandButtonl_Click  ( ) 

Dim  fx,  fpx,  xO,  delta,  maxitr 

fx  =  Cells  (3,  2)  'Leer  f  (x)  en  celda  (3,2) 

fpx  =  Cells  (4,  2)  'Leer  f'  (x) 

xO  =  Cells  (8,  1) 

delta  =  Cells  (8,  2) 

maxitr  =  Cells  (8,  3) 

Cali  MNewton(fx,  fpx,  xO,  delta,  maxitr,  8,  4) 

End  Sub 


Sub  MNewton(fx,  fpx,  xc,  delta,  maxitr,  fi,  co) 

Dim  f  As  New  clsMathParser 

Dim  fp  As  New  clsMathParser 

Dim  k,  xO,  xl,  dx,  okfx,  okfpx,  fxO,  fpxO 

okfx  =  f . StoreExpression (fx) 
okfpx  =  fp . StoreExpression (fpx) 

If  Not  okfx  Then 

MsgBox  ("Error  en  f :  "  +  f .ErrorDescription) 

Exit  Sub 

End  If 

If  Not  okfpx  Then 

MsgBox  ("Error  en  fp:  "  +  fp. ErrorDescription) 

Exit  Sub 

End  If 

k  =  0 
xO  =  xc 

Do 

fxO  =  f .Evall (xO) 
fpxO  =  fp. Evall (xO) 
xl  =  xO  -  fxO  /  fpxO 
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dx  =  Abs (xl  -  xO) 
xO  =  xl 

Cells(fi  +  k,  co)  =  xl 
Cellsffi  +  k,  co  +  1)  =  dx 
k  =  k  +  1 

Loop  Until  dx  <  delta  Or  k  >  maxltr 

End  Sub 
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4.22  (Raíz  cuadrada)  Como  \J~A  es  una  solución  de  la  ecuación  x2  —  A  —  0,  podemos  usar  el  método  de  Newton 
para  estimar  yA  (figura  4.15).  Como  veremos  más  adelante,  la  sucesión  converge  para  cualquier  xq  >  0 


Figura  4.15  La  sucesión  converge  a  la  raíz  para  cualquier  valor  Xq  >  0 


a)  Verifique  que  la  fórmula  de  iteración  para  obtener  la  estimación  de  la  raíz  cuadrada  es  xn  —  0.5  \xn-  -¡  + 

b)  Estime  \/2  y  \/  l  000999  con  al  menos  cinco  decimales  exactos. 


4.23  Aproxime  v^O. 00302  con  al  menos  cinco  cifras  significativas 

4.24  Aproxime  'y  0.00302  con  al  menos  cinco  cifras  significativas 

4.25  Dé  una  fórmula  iterativa  para  aproximar  $¡/a  con  a  >  0. 

4.26  Resuelva  x3  =  0  usando  Xq  —  —0.2.  Resuelva  la  misma  ecuación  usando  bisección  con  el  intervalo  [—0. 2,0.1] 

4.27  Resuelva  f  —  x5  —  100  *  x4  +  3995  *  x3  —  79700  *  x2  +  794004  *  x  —  3160075  usando  xq  =  17.  Resuelva  usando 
bisección  con  [17,22.2] 

4.28  (*)  En  teoría  de  números  es  necesario  a  veces  calcular  \_\/ñ\  donde  n  puede  ser  un  número  entero  grande 
imposible  de  manejar  aún  con  doble  precisión.  En  estos  casos  se  implementan  bibliotecas  para  operar  con  enteros 
grandes  (de  precisión  infinita,  i.e.  enteros  tan  grandes  como  la  máquina  soporte).  Para  calcular  [\/ñ\  se  aplica  el 
método  de  Newton  a  la  ecuación  x2  —  n  =  0  operando  con  aritmética  entera  en  todo  momento.  El  algoritmo  que  sigue 
esta  basado  en  el  siguiente  resultado 


Si  n  G  N,  la  fórmula  recursiva 
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xk+l  =  2  '  k-°'X0  =  n- 

converge  (cuadráticamente)  a  -Jñ.  Además,  si  |xjt+i  —  x^\  <1  entonces  [Vx^+iJ  =  [Vn\  ■ 

El  algoritmo  (que  funciona  con  aritmética  entera)  es  el  siguiente. 

if  n  —  1,  salida  1 
if  n  >  1 


X]c  =  n 

n 

xk+l  —  2  (división  entera) 

while  Xjt+l  <  xk 
xk  xk+ 1 

n 

xk+ 1  +  - - 

xk+i  — - - — +  (divisiones  enteras) 

retorne  xk+\ 


a)  Explique  porqué  es  adecuado  el  criterio  de  parada. 

b)  Para  decidir  el  criterio  de  parada  puede  utilizar  la  desigualdad  \xk+i  ~  xk\  <1-  Utilice  esta  desigualdad 
para  cambiar  el  criterio  de  parada. 

c)  Implemente  el  algoritmo. 


d)  Use  la  implementación  para  calcular 


V 6556426 


4.29  Resuelva  x3  —  2x  —  5  =  0.  Esta  ecuación  tiene  valor  histórico:  fue  la  ecuación  que  usó  John  Wallis  para  presen¬ 
tar  por  primera  vez  el  método  de  Newton  a  la  academia  francesa  de  ciencias  en  el  siglo  XV. 


4.30  Resuelva  e3U  11  —  ln(x  —  l)2  +  1 


0  con  al  menos  cinco  cifras  significativas. 


4.31  Resuelva  e3x 


ln(x2  +1)  —  30  =  0  con  al  menos  cinco  cifras  significativas. 


4.32  Considere  la  ecuación  x  —  uln(u)  con  x  >  0. 

a)  Aplique  el  método  de  Newton  a  f{u)  y  obtenga  la  expresión  para  un+\. 

b)  Resuelva  la  ecuación  f(u)  =  0  con  uq  —  0.5 

4.33  x  =  2  es  un  cero  del  polinomio  P(x)  =  —1536  +  6272x  —  11328x2  +  11872x3  —  7952x4  +  3528x5  —  1036x6  + 
194x7  —  21  x8  +  x9.  Aproxime  esta  raíz  con  una  aproximación  inicial  adecuada. 

4.34  x  =  1  es  un  cero  del  polinomio  P(x)  —  2  —  19x  +  81x2  —  204x3  +  336x4  —  378x5  +  294x6  —  156x7  +  54x8  — 
11  x9  +  x10.  Aproxime  esta  raíz  con  una  aproximación  inicial  adecuada. 
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4.35  Para  las  siguientes  ecuaciones,  haga  una  corrida  en  Excel  para  las  aproximaciones  iniciales  que  se  dan.  ¿Es 
posible  encontrar  otra  aproximación  inicial  para  obtener  convergencia  eficiente? 

a)  (Sucesión  oscilante  y  divergente),  arctan(x)  =  0  con  xq  =  1.5 


Figura  4.16  f(x)  =  arctan(x) 

b)  (Sucesión  rápidamente  convergente),  x 2  —  cos(x)  —  1=0.  con  xq  —  6 


Figura  4.17  f(x)  =  X2  —  cos(x)  —  1 

c)  Sucesión  Periódica  (cíclica),  x3  —  x  —  3  =  0  con  xq  =  0 


Figura  4.18  f(x)  =  x3  —  x  —  3 

d)  (Convergencia  lenta),  (x  —  l)3  =  0  con  x0  =  —2 

4.36  Sea  f(x)  =  x3  —  2cos(x)  —  3 .  Según  el  teorema  de  Taylor 

/(a)  —f{x)  +//(x)(a  —  x)  +  -(a  —  x)2/"(f),  con  f  entre  xy  a 


Si  a  =  7t/4  y  x  =  1,  calcule  £. 
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4.37  Sea  /  una  función  dos  veces  derivable  en  un  entorno  I  de  una  de  sus  raíces  x* .  Si  la  expansión  de 

Taylor  de  orden  dos  para  /,  alrededor  de  x  —  xn,  es 


/(**)  =  f(xn )  +  f'(xn){x* 


Xn) 


1 


Suponiendo  que  el  resto  es  despreciable,  despeje  x*  del  factor  lineal  y  obtenga  la  fórmula  de  Newton. 


4.38  Considere  la  función  f(x)  =  sgn(x  —  \)yJ\x  —  1|  donde  sgn(u)  — 
es 


1 

0 

-1 


si  u  >  0 

si  u  —  0  El  gráfico  de  la  función 
si  u  <  0 


Figura  4.19  f(x)  =  sgn(x  —  l)^/|x  —  1| 

Claramente  x*  —  1  es  un  cero  de  /.  Use  el  método  de  Newton  e  intente  aproximar  este  cero.  Comente  el  resultado 
de  sus  experimentos. 


4.12 


Método  de  Newton:  Teorema  de  Convergencia.  Orden  de  Convergencia. 


Se  pueden  establecer  condiciones  suficientes  sobre  /,  f  y  f"  para  garantizar  que  el  método  de  Newton  converge. 
No  siempre  es  fácil  verificar  estas  condiciones  excepto  para  algún  tipo  especial  de  funciones.  En  todo  caso,  si  no  se 
cumplen  las  hipótesis  de  estos  teoremas,  todavía  puede  pasar  que  haya  convergencia  pues  son  teoremas  que  dan 
condiciones  suficientes  de  convergencia. 

El  primer  teorema  establece  que  si  la  aproximación  inicial  está  "suficientemente  cercana"  a  un  cero  x*  de  /  entonces  el 
método  de  Newton  converge  a  x*. 

¿Qué  significa  la  frase  "si  la  aproximación  inicial  está  suficientemente  cercana  a  un  cero  x* "?.  Hablando  muy  general¬ 
mente,  si  \f{x)\  >  m  >  0  y  |  f"(x)\  <  M  en  un  intervalo  l  centrado  en  x* ,  entonces  aplicando  la  fórmula  de  Taylor 
se  obtiene 


*  I  / 

Xn  ~  X  |  < 


/ M|x0  -  X* 

\  2  m 


n 

|z0  -  ** 


(4.9) 


Para  conseguir  la  convergencia  es  suficiente  con  escoger  x$  y  el  intervalo  1  de  tal  manera  que 
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M|xq  —  x*\  <  1 
2  m 

Con  las  condiciones  del  teorema  de  convergencia  es  posible  manipular  I  dándole  un  tamaño  adecuado  (tan  pequeño 
como  sea  necesario)  de  tal  manera  que  si  tomamos  Xq  en  este  intervalo,  obtengamos  convergencia. 

Los  razonamientos  que  siguen  están  basados  en  el  teorema  de  Taylor.  Si  x*  es  un  cero  de  /  en  un  intervalo  [a,  b]  la 
expansión  de  Taylor  para  /  alrededor  de  u  =  xn,  en  x*  es 


0  =  f(x*)  =  f(xn)  +  f(xn)(x*  -  xn)  +  x * 


Xn)2f"{£n),  con  £n  entre  x„  y  x* 


es  decir 


0  =  f(xn)  +  f'(x„)(x*  -  xn)  +  ^(x*  -  x„)2 /"(£„),  con  entre  x„  y  x* 

El  primer  teorema  establece  la  naturaleza  local  de  la  convergencia  del  método  de  Newton  en  el  caso  de  ceros  simples, 
es  decir  ceros  x*  para  las  que  /(x*)  ^  0. 


Teorema  4.8 


Sea  x*  un  cero  simple  de  /  y  sea  I£  —  {x  £  IR  :  \x  —  x*  \  <  e}.  Asumamos  que  /  G  C2(IE )  y  que  e  es  lo  suficientemente 
pequeño  de  tal  manera  que  para  este  intervalo  existen  m,  M  >  0  tal  que  \f'(x)  >  m  >  0  y  \f"  (x)  <  M.  Si  en  el 
método  de  Newton,  algún  xy  satisface 


xj  e  h, 


y  ley |  =  |xy  —  X  |  <  2— 


(4.10) 


entonces  lim  xn  —  x* 


Prueba.  Supongamos  que  estamos  en  la  situación  (4.10).  Sea  a 
/  alrededor  de  u  —  xy,  en  x*  es 


1 

2 


M 


<  1.  La  expansión  de  Taylor  para 


0  =/(**)  =f(xj)  +/'(*;)(** -*y)  +  ¿(** 


xj)2f"(€j)'  con  entre  x¡  y  x* 


De  aquí  podemos  despejar  ey+i  =  |xy+i  —  x*|  en  términos  de  ey  =  |xn 


—  x 
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entonces 


X;  - 


Xj)(x*-x¡) 

II 

Mi-1 

'íT 

* 

i 

N> 

■5? 

/(*;)  * 
/'(*;)  ' 

II 

* 

i 

ii 

MH 

"íT 

* 

1 

J*í 

V'~N> 

Xy_|_l  —  X* 

1,2  f%) 


ej+1  -  1  ’  7W 


1  M,  |2 


|e/+l1  —  2  '  ~ 


a  e,- 


(4.11) 


m 


Ahora,  como  \eA2  <  4 

7  M2 


ra 


*/+i e  fe/  y  k/+ il  =  l*/+i _  x*l  <  2m 


Figura  4.20  Xj  j  j  6  I, 


Ahora  podemos  repetir  el  razonamiento  con  xy+i  en  vez  de  Xj  (ya  que  de  nuevo  estamos  en  la  situación  (4.10)) 
y  concluir,  por  inducción,  que  e¡+k  <  ak\ej\. 


Como  oí  <  1,  lim  =  0,  es  decir,  lim  =  x* . 
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Considere  la  ecuación  x2  —  A  —  0  con  A  >  0.  Esta  ecuación  se  usa  para  aproximar  \f~A  con  el  método  de  Newton. 
Podemos  usar  el  teorema  (4.8)  para  demostrar  que  el  esquema  iterativo  de  Newton  converge  si  xq  se  toma  "suficien¬ 
temente  cercano"  a  \f~A.  En  efecto. 


Figura  4.21  Xq  está  “suficientemente  cercano”  a  \J  i 4. 

Como  f'{x )  —  2x  y  f"(x)  =  2  —  M  basta  tomar  un  intervalo  I  con  centro  en  \J  A  en  el  que  f'{x)  >  0,  digamos 
IE  —  [s/A  —  e,  yfA  +  e]  con  \J~A  —  e  >  0  y  entonces  el  mínimo  absoluto  de  f  en  I£  es  m  —  2  —  e)  >  0  (ver  figura  ??). 

Si  tomamos  x0  en  I  tal  que  x0  —  \f~A  <  m  entonces 


Xo  eíf  y  1*0  -  VA|  <2  ■  J^=m 

con  lo  cual  tendríamos  convergencia. 

En  realidad,  en  este  caso,  el  método  de  Newton  converge  para  cualquier  Xq  >  0.  Para  demostrar  esto,  se  podría 
usar  en  algún  momento  el  teorema  (4.8)  pero  es  innecesario:  La  convergencia  se  puede  establecer  sin  el  teorema  (ver 
ejercicio  4.41). 


Consideremos  la  ecuación  (x  —  l)2  =  0.  En  este  caso,  el  cero  x*  =  1  no  es  un  cero  simple  de  f{x)  —  (x  —  l)2.  Como 
f'(x)  —  (x  —  1),  de  hecho  no  podríamos  establecer  la  desigualdad  \  f  (x)  >  m  >  0  en  algún  intervalo  I  centrado  en 
x*  =  1  (el  mínimo  absoluto  de  \f'\  es  cero  en  estos  intervalos). 

Aún  así  el,  método  de  Newton  converge  para  cualquier  elección  de  xq.  En  efecto,  el  esquema  iterativo  para  esta 
ecuación  es 


Xjj- i-i  —  xn 


(■ Xn  -  l)2  _  xn  +  1 

2(*„-l)  2 


1  ( 1 

Luego  \xn+i  -1|  =  -\x„  - 1|  y  en  general  \xn+í  - 1|  =  I  - 


n+ 1 


Xq  —  1 1 ,  de  donde  se  sigue  la  convergencia  si  n  — t  oo. 
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La  ecuación  x5  +  x4  —  0  tiene  la  raíz  simple  x*  —  —  1. 
La  aproximación  inicial  xq  =  —0.77  no  es  una  elección 
suficientemente  cercana  a  x*  =  —  1.  Con  esta  elección  el 
método  de  Newton  converge,  pero  no  a  x*  —  —  1. 


EJERCICIOS 

4.39  Establezca  un  intervalo  I  centrado  en  x*  —  \J7.  tal  que,  a  la  luz  del  teorema  (4.41),  se  pueda  garantizar  la 
convergencia  del  método  de  Newton  aplicado  a  x2  —  2  =  0  si  xq  £  I. 

4.40  La  ecuación  x3  —  1  —  0.  tiene  el  cero  simple  x*  =  1.  Determine  e  >  0  de  tal  manera  que  el  método  de  la  secante 
converja  para  cualquier  xq,X\  (E  I£,  xq  ^  x¡  (a  la  luz  del  del  teorema  (4.8)). 

4.41  Vamos  a  establecer  que  el  esquema  iterativo  xn  —  0.5  (xn-l  +  ET^y)  converge  a  VA,  A  >  0,  para  cualquier 
Xq  >  0. 


a)  Muestre  que  xn  >  VA  para  todo  n  >  0.  Ayuda:  desarrolle  (x„  —  VÁ)2  >  0. 

b)  Muestre  que  la  sucesión  {xn}  definida  por  el  esquema  iterativo  es  decreciente  a  partir  de  x\,  i.e.  xn+\  <  xn 
si  n>  1.  Ayuda:  xn  >  \]~A  para  todo  n  >  0. 

c)  Muestre  que  la  sucesión  {xn}  definida  por  el  esquema  iterativo  es  convergente. 

d)  Sea  L  —  lim  xn.  Use  el  hecho  de  que  lim  xn  —  lim  xn+\  para  establecer  que  L  =  \/  /l . 

n—>co  n— >oo  n— Yoo 


4.42  Vamos  a  establecer,  usando  otra  manera  de  razonar,  que  el  esquema  iterativo  xn  —  0.5  converge 

x„  —  \J~A 


a  VA,  a>o,  para  cualquier  xq  >  0.  Sea  yn  = 


+  Va 


a)  Muestre  que  yn+\  =  y2 

2n 

b)  Muestre  que  yn  =  y0 

c)  Muestre  que,  Vxo  >  0,  lim  yn  =  0 

n—too 

d)  Muestre  que,  Vxo  >  0/  lim  xn  —  V~Á.  Ayuda:  Una  forma  es  despejando  xn  en  términos  de  yn  y  tomando  el 

H— >■  OO 

límite. 


4.43  La  ecuación  sen(x)  —  1=0.  tiene  el  cero  simple  x*  —  tí/1.  ¿Se  puede  encontrar  un  intervalo  I  con  centro  en 
x*  y  un  xq  en  este  intervalo  de  tal  manera  que  se  cumplan  las  condiciones  del  teorema  (4.8)?. 

4.44  La  ecuación  x5  +  x4  =  0  tiene  la  raíz  simple  x*  =  —1.  Encuentre  un  intervalo  I  con  centro  en  x*  y  un  xq  en 
este  intervalo  de  tal  manera  que  se  cumplan  las  condiciones  del  teorema  (4.8). 
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Otros  Teoremas  de  Convergencia.  Aquí  vamos  a  presentar  otros  teoremas  de  convergencia  que  son  aplicables  a 
ciertas  clases  especiales  de  funciones. 


Teorema  4.9 


Supongamos  que  el  intervalo  [a,  b]  es  lo  suficientemente  pequeño  de  tal  manera  que  se  cumplan  las  siguientes  tres 
condiciones 

a. )  /  tiene  un  único  cero  x*  en  [a,  b] 

b. )  f{a)f{b)  <  0 

c. )  f  y  f"  son  no  nulas  y  conservan  el  signo  en  [a,  b] 

f(x„ ) 

— ,  entonces  xn  converge  a  x  . 
f{xn) 


Luego,  si  x0  e  [a,b],  /(x0)/"(x0)  >  0  y  xn+1  =  xn 


Prueba.  Como  f(a)  y  f(b)  deben  tener  signo  contrario,  supongamos  (sin  pérdida  de  generalidad)  que  f  (a)  < 
0  y  f(b)  >  0  y  que  f'(x)  >  0  y  f"(x)  >  0  en  [a,b].  Entonces  /(xo)  >  0  y  xq  >  x*. 

Vamos  a  mostrar  que  xn  >  x*  y  que  f(xn  )  >  0.  En  efecto,  por  la  teorema  de  Taylor  tendremos 


0  =  f(x„)  +  f(x„)(x*  -  xn)  +  i( x * 


xn)2f"{£n),  con  entre  x„  y  x* 


y  como  f"(x)  >  0  entonces 


f  (xn)  +  f  (X;¡)  (x  X„)  <  0  r'  xn+1  —  xn 


f(xn) 

f'(xn ) 


>  X 


* 


Luego  xn  >  x*,  n  =  0,1,2,-  ■  ■ 

Además,  por  los  signos  de  /  y  f ,  se  deduce  que  xn  >  xn+\  (n  —  0,1,2,...)  por  lo  que,  la  sucesión  xg,xi,X2,... 
es  acotada  y  decreciente  y  por  lo  tanto  converge.  El  límite  debe  ser  x*  pues  si  fuera  x  entonces, 

f(xn)  _ .  -  -  f{x) 

Xn+1  =  xn  ~  777 - r  =>  X  =  X  -  — -7 

/'(*»)  f  \x)> 


tomando  límites  a  ambos  lados  en  la  igualdad  de  la  izquierda.  Es  decir,  f(x)  —  0,  luego  x  —  x*  por  la  condición 

a.) 
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Teorema  4.10 


Supongamos  que  f(a)f(b )  <  0,  f"(x)  es  continua  y  f'(x)  ■  f"(x)  ^  0,  en  [a,b].  Entonces,  si 


f(a) 

/'(«) 


<b  —  a 


y 


m 

f>(b) 


<b  —  a 


el  método  de  Newton  converge  para  cualquier  Xq  £  [a,  b] . 


Sea  f(x)  =  x3  +  x  +  1,  a  =  —  1  y  b  —  —0.5.  Entonces  /  cumple  las  hipótesis  del  teorema  (4.10), 

a. )  f(a)f(b)  =  -0.375  <  0 

b. )  f'(x)  —  3x2  +  1  y  f"{x)  =  6x  son  continuas  y  no  se  anulan  en  [—1,  —0.5] 

/'(«) 


c.) 


d.) 


/'(«) 

f(b) 


m 


~1/A<b  —  a  =  0.5 


=  1.214...  <b-a  =  0.5 


Por  lo  tanto,  el  método  de  Newton  converge  al  cero  de  /  usando  cualquier  Xq  G  [—1,  —0.5]. 


Teorema  4.11 


Supongamos  que  f(a)f(b)  <  0,  f" (x)  es  continua  y  f{x)  ■  f"(x)  ^  0,  en  [a,b].  Entonces,  si  para  un  xo  e  [a,b]  se 
cumple 


f(x0)f"(x0)  >  0 


el  método  de  Newton  converge  (monótonamente)  a  un  a.  €  [a,  b  . 
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Sea  f{x)  =  x3  +  x  +  1,  a  =  —1  y  b  —  —0.5.  Entonces  /  cumple  las  hipótesis  del  teorema  16, 

a. )  f{a)f{b)  =  -0.375  <  0 

b. )  f'(x)  —  3x2  +  1  y  f"{x)  =  6x  son  continuas  y  no  se  anulan  en  [—1,  —0.5] 

c. )  Sea  xq  =  -0.75  e  [-1,-05].  f(x0)f"(x0)  =  0.77343...  >  0 

Por  lo  tanto,  el  método  de  Newton  converge  a  una  raíz  oí  G  [—1,  —0.5] . 


4.13 


Método  de  Newton:  Estimación  del  error 


Primero  vamos  a  establecer  un  resultado  que  nos  da  una  estimación  muy  general  del  error  para  luego  hacer  un  refi¬ 
namiento  más  manejable. 


Teorema  4.12 


Si  xk  es  una  aproximación  del  un  cero  x*  de  /  tal  que  ambos  están  en  el  mismo  intervalo  [a,b]  y  si  \f'(x)  \  >ni\  >  0 
en  este  intervalo,  entonces 


\xk-x*  \  < 


l/(*fc)l 

mi 


Prueba.  Aplicando  el  teorema  de  valor  medio 


f{xk )  -/(**)  =  (**-**)/'(£) 

con  f  entre  xk  y  x* ,  así  ^  €  [a,b].  Luego,  como  f(x*)  —  0  y  |//(^)|  >  nq,  tenemos 


\f(xk)\  >  mx\xk-x* 


de  donde  se  obtiene  el  resultado. 
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Teorema  4.13 


Si  el  método  de  Newton  converge  al  cero  x*  de  /  en  [a,  b]  y  si  en  este  intervalo  \f'(x)\  >m>  0  y  |/"(x)|  <  M, 
entonces  para  n  suficientemente  grande 

i  *  |  ,  A4  .  \1  ^  \  i 

\Xn -X  <  —  (x„  -Xn_xY  <  \xn  ■  Xn—\ 

2  m 


Prueba.  Por  el  teorema  de  Taylor 

f(xn)  =f(xn-i)  +f'(xn-1)(xn  -  xn_i)  +  ~(xn  -  x„_i)2/"(£n_i),  con  £„_i  entre  r„_i  y  xn 
Ahora,  f(xn- 1)  +  f'(xn- \)(xn  —  xn-i )  —  0,  entonces 

Y 

\f(xn)\  <  -M(xn  -xn_x)2 

de  donde,  por  el  teorema  (4.12), 


I  *  |  1V1  i  \2 

\x  -xn\<—(xn-xn_ i)Z 

¿m 

Así,  si  hay  convergencia,  \xn  —  xn_.¡  — 5-  0  si  n  — 5-  oo.  Por  tanto,  si  ?z  es  suficientemente  grande 

—  {xn-Xn_xY  <  |X„  —  X„_!  | 


con  lo  que  se  obtiene  el  resultado. 


ivl  9 

Por  supuesto,  sería  mejor  usar  (xn  —  xn.  \ )  como  cota  de  error. 

Orden  de  Convergencia  para  ceros  Simples. 


Teorema  4.14 


Supongamos  que  el  método  de  Newton  converge  a  un  cero  simple  x*  de  /  Si  f  y  f"  existen  y  son  continuas 
en  los  alrededores  de  x*  y  f"{x*)  Y  0,  entonces  el  orden  de  convergencia  del  método  de  Newton  es  como  mínimo  dos. 


Prueba. 

Para  establecer  el  orden  de  convergencia  (para  raíces  simples)  del  método  de  Newton,  podemos  usar  el  poli¬ 
nomio  de  Taylor  de  la  siguiente  manera. 
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_ ^ - 

La  ecuación  x2  —  2cos(x)  —  1  tiene  la  solución  (con  16  decimales  exactos)  x*  —  0.7146210577792836.  Aplicando 
Newton  con  xq  =  0.5  se  obtiene  la  siguiente  tabla 

n  I*,,-**!  L(x„-xn_  i)2  |  xn-xn_x\ 

_ Zm _ 

1  0.04326742065505729  0.24460444363612954  0.25788847843434093 

2  0.0011243785942077755  0.006532090995081504  0.04214304206084951 

3  8.085458267359513  x  ICC7  4.64302230230964  x  1CT6  0.0011235700483810396 


Tabla  4.1 


Sea  x*  es  una  raíz  simple  de  /  y  supongamos  que  la  iteración  de  Newton  converge  a  x* .  Entonces  podemos 
calcular  la  expansión  de  Taylor  para  /  alrededor  de  u  —  xn 


o  =/(**)  =f(xn)  +f'{xn)(x*  -  xn)  +  ^(x*  -  xn)2f"(£n),  con  entre  xn  y  x* 

Como  tenemos  la  convergencia  asegurada,  £„  — >  x*  conforme  x„  — >  x*  . 

De  aquí  podemos  despejar  en+\  —  \xn+\  —  x*  en  términos  de  en  —  \xn  —  x*  (lo  que  nos  permitirá  analizar  la 
velocidad  de  convergencia)  de  la  siguiente  manera:  como  f'{x*)  ^0  y  tenemos  convergencia,  supongamos  que 
los  xn  que  consideramos  ya  están  en  un  entorno  alrededor  de  x*  en  el  que  f'(xn )  ^  0. 


~f(xn)  -  f'{xn){x*  -  xn) 


f (xn )  _  * 
/'(*»)  ' 


X„+\  ~  X* 


£n+ 1 


\{X*  -Xnff'^n) 


(x*  _  x  )2f&l 

(  n)  f’(xn) 


2 


/"&) 


lp2  _ 

2  cn  r, 


f'{xn) 


Como  f'(x*)  7^  0  se  sigue  que 
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lim  —K  — 

n-> oo  \en\A 


1  /"(**) 
2  f'(x*) 


Si  f"(x*)  7^  O,  entonces  K  >  O  y  la  convergencia  es  cuadrática. 


Orden  de  Convergencia  para  ceros  de  Multiplicidad  m  >  1 . 


Definición  4.2  (Ceros  múltiples). 


Supongamos  que  /  y  sus  derivadas  •  •  ■  ,/-"j  existen  y  son  continuas  en  un  intervalo  /  que  contiene  a  x*  con 

f(x*)  —  0.  Diremos  que  el  cero  x*  es  de  orden  n  si 


/(x*)=0, /'(**)  =0,  ■■■  lf{n~1\x*)=0  pero  f(n\x*)  ¿ 0 


Un  cero  x*  es  de  orden  1  si  /(x* ) 


0,  f'(x*)  7^  0.  En  este  caso  se  dice  que  x*  es  un  cero  simple. 


El  método  de  Newton  solo  exhibe  convergencia  cuadrática  para  ceros  simples.  En  el  caso  de  multiplicidad  2  la  conver¬ 
gencia  es  lineal  con  K  —  l/2:  En  efecto,  si  x*  es  un  cero  de  multiplicidad  m  =  2,  es  decir,  si  f  (x* )  =0  y  f"(x* )  0, 
de  acuerdo  a  la  fórmula  de  Taylor  tendremos  (como  vimos  antes) 


i  ¿fm 

n+1  2  f{xn) 


f'(x*)  —  f'(xn) 

Ahora,  usando  el  teorema  del  valor  medio  para  derivadas,  - - - - —  =  f"  ( r¡ )  con  ?/  entre  x*  y  xn .  Entonces 

X  Xn 


Cn+ 1  —  2 


-  M 

O  c 


-  1.2 


-  r\  6 


fM 
U  /'(*») 

/"(£») 


2  cn  ri 


/'(x*)  +e„ /"(»/) 


-  I  „2 


-  n,  6 


/"(&) 


2  n  .  r// 


«n /"(»/) 


—  o 


r(gn) 


2C”  r// 


Y  así 


lim 

n—¥co 


leH  +  l  I 

I  I 


im 

2/"(x*) 


1/2 
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En  general,  si  m  >  1,  en+\  =en  —  en/m.  Esto  indica  que  si  la  multiplicidad  del  cero  es  m  >  1,  entonces  el  método  de 
Newton  converge  solo  linealmente  con  tasa  K  —  1  —  1/m. 

Por  ejemplo  si  m  —  20,  se  necesitarían  de  45  iteraciones  para  ganarse  un  dígito  decimal  adicional  (más  lento  que 
bisección). 

Para  restaurar  la  convergencia  en  el  caso  de  ceros  múltiples  podemos  hacer  un  par  de  modificaciones, 

•  (1870,  E.Schróder)  Si  la  multiplicidad  m  de  un  cero  es  conocida  a  priori  entonces 

f(xn) 

Xn+1  =  Xn-m7W) 


converge  al  menos  cuadráticamente  (ejercicio  4.47). 


•  En  todo  caso,  si  se  desconoce  la  multiplicidad  de  un  cero  x* ,  al  menos  este  cero  es  un  cero  simple  de  u(x)  — 
f(x)/f'(x),  por  lo  que  el  método  de  Newton  convergerá  cuadráticamente  para  esta  función  (ejercicio  4.48). 

En  este  caso,  la  iteración  de  Newton  es 


^n+ 1 


=  Xn  ~ 


f(xn ) 


f(xn ) 


f{xn)f"{xn 

f'{xn) 


Esta  fórmula  recursiva  requiere  no  solo  f  sino  también  f"  por  lo  que  el  costo  computacional  aumenta.  Hay  que 
tener  en  cuenta  además  que  aunque  teóricamente  la  convergencia  es  cuadrática,  para  cierto  tipo  de  funciones,  por 
ejemplo  polinomios  con  raíces  múltiples,  hay  una  barrera  que  no  permite  acercarse  a  la  raíz  con  la  precisión  esperada. 


4.14 


Métodos  de  Orden  Cúbico.  Método  de  Euler. 


El  método  de  Newton  puede  obtenerse  con  un  polinomio  de  Taylor  de  orden  1.  Si  aumentamos  el  orden  del  polinomio 
de  Taylor  ,  se  pueden  obtener  métodos  de  orden  superior.  Aunque,  para  ceros  simples  hay  métodos  modificados  que 
alcanzan  orden  de  convergencia  alto  [15],  aquí  solo  discutiremos  brevemente  un  método  de  orden  cúbico,  llamado 
método  de  Eider. 

Usando  el  polinomio  de  Taylor  de  orden  2, 

f(xn+h)  =  f(xn)+hf{xn)  +  ¡^f"(xn)+0(h3) 


si  f(x„  +  h)  —  0 

0  «  f(xn)  +hnf(xn)  +  ~^f"{xn) 
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Si  f  y  f"  no  se  anulan  y  si  f'(xn)2  >  2 f(xn)f"(xn),  se  puede  resolver  para  hn  (tomando  el  signo  "  —  ") 


hn 


f(xn)  _  /  2f(xn)fjx^\ 

f"(*n)  {  V  (/'(^n))2  ) 


Reordenando 


Xn+\  —  xn 


u(xn) 


2 

1  +  \/l  —  2  t(xn) 


con  u(x) 


f(x) 

/'(*) 


y  f(x) 


u(x) 


/"(*) 

/'(*) 


Sea  f(x)  =  x2  —  2cos(x)  +  1.  Un  cero  de  esta  función  es  x*  —  0.7146210577  (con  10  decimales  exactos.)  Aplicando  el 
método  de  Newton  y  el  método  de  Euler  se  obtiene  la  siguiente  tabla 


Xn 

Método  de  Newton 

Método  de  Euler 

xo 

0.5 

0.5 

Xl 

0.7578884784343409 

0.7139946504857623 

x2 

0.7157454363734914 

0.7146210577596979 

X3 

0.7146218663251104 

0.7146210577792835 

Tabla  4.2 


Para  obtener  10  dígitos  exactos,  nos  ganamos  una  iteración  con  el  método  de  Euler,  pero  con  un  costo  computacional 
más  alto. 
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4.45  Muestre  que  si  m  >  0,  M  >  0  y  \xn  —  xn_¡  — ?  0  si  n  — >  oo,  entonces  si  n  es  suficientemente  grande, 

—  (X„  <  \Xn  Xn—\  \ 


T  \  X  ) 

4.46  El  esquema  iterativo  xn+\  —  xn  —  ~  ”  se  puede  ver  como  un  esquema  iterativo  de  un  problema  de  punto 

y  \xn) 

fijo.  Use  el  teorema  (4.6)  para  establecer,  bajo  hipótesis  adecuadas,  que  el  orden  de  convergencia  del  método  de 
Newton  es  al  menos  dos. 


4.47  Vamos  a  establecer  que  si  la  multiplicidad  m  de  un  cero  x*  es  conocida  a  priori  entonces  si  xn+  \  —  xn 
converge,  la  convergencia  es  cuadrática. 


—  m 


f  (xn) 
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(x*  —  xn+\ )f'(x„)  =H(xn)  donde  H(x)  =  (x*  —  x)f'(x)  + 


a)  Muestre  que  x*  —  x,!+i  —  x*  —  xn  +  m 

J  \xn) 

mf(x). 

b)  Muestre  que  H^(x)  =  m/^(x)  +  (x*  —  x)/^+1->(x)  —  kf^k\x) 

c)  Muestre  que  H("'+1)(x*)  ^0. 

(x  —  x*)m+k 

d)  Aplique  el  teorema  de  Taylor  a  H  para  mostrar  que  H(x)  =  — ^ yy — '(ei) 

e)  Aplique  el  teorema  de  Taylor  a  f  para  mostrar  que,  como  x*  es  cero  de  multiplicidad  rn  de  /,  entonces 

(x  —  x*  )m— 1 


/'(*)  - 


(m  —  1)! 


-/(m)(e  2) 


x  -  X„+l 


jLf(m+Í)  (£i) 


f)  Use  (4.47.a)  para  mostrar  que  .  s  s 

F  4  (x*  -  xn)2  m(m  +  l)/(m)(e2) 

g)  Concluya:  ¿porqué  el  orden  de  convergencia  es  al  menos  dos? 


4.48  Vamos  a  establecer  que  si  x*  es  un  cero  de  /  de  multiplicidad  m,  entonces  x*  es  un  cero  simple  de  u(x)  — 
/(x)///(x)  y  si  xn+i  =  xn  —  u(xn)/u’(xn)  converge,  la  convergencia  es  cuadrática. 


Para  probar  esto  necesitamos  la  siguiente  definición:  Un  cero  x*  de  /  es  un  cero  de  multiplicidad  m  si  /(x)  = 
(x  -  x*)mQ(x)  donde  lim.Y^x*  Q(x)  f=  0. 

a)  Muestre  que  si  x*  es  cero  de  /,  u(x*)  =  0 

b)  Muestre  que  u'(x*)  =  0 

4.49  Verifique  que  para  (x  —  l)2  =  0,  el  método  de  Newton  converge.  Además  verifique  que  la  convergencia  es 
lineal.  Modifique  el  método  de  Newton  para  obtener  convergencia  cuadrática. 

4.50  Considere  la  ecuación  (x  —  0.123456789)3  =  0. 

a)  ¿Qué  multiplicidad  tiene  la  raíz  x  =  0.123456789? 

b)  Aplique  Newton  con  Xo  =  1 

c)  Modifique  la  ecuación  de  tal  manera  que  el  orden  de  convergencia  sea  cuadrático.  Hacer  esto  de  dos  man¬ 
eras:  Usando  la  multiplicidad  de  la  raíz  y  usando  la  ecuación  u(x)  =  f(x)/f{x) 

4.51  Considere  la  ecuación  4(x  —  l)3cos(x)  =  0. 

a)  ¿Qué  multiplicidad  tiene  la  raíz  x  =  1  ? 

b)  Aplique  Newton  con  Xq  =  0.5 

c)  Modifique  la  ecuación  de  tal  manera  que  el  orden  de  convergencia  sea  cuadrático.  Hacer  esto  de  dos  man¬ 
eras:  Usando  la  multiplicidad  de  la  raíz  y  usando  la  ecuación  u{x)  =  f  (x) /  f  (x) 

4.52  x  =  2  es  un  cero,  de  multiplicidad  m  =  7,  del  polinomio  P(x)  =  —1536  +  6272x  —  11328x2  +  11872x3  — 
7952x4  +  3528x5  —  1036 x6  +  194x7  —  21  x8  +  x<:) .  Repita  la  parte  c.)  del  ejercicio  anterior  con  este  polinomio. 

4.53  x  =  1  es  un  cero,  de  multiplicidad  m  —  7,  del  polinomio  P(x)  =  2  —  19  x  +  81  x2  —  204 x3  +  336 x4  —  378  x5  + 
294x6  —  156 x7  +  54x8  —  llx9  +  x10.  Repita  Repita  la  parte  c.)  del  ejercicio  anteriorcon  este  polinomio. 

4.54  Implemente  el  método  de  Euler  con  VBA  Excel. 

4.55  Sea  x2  —  2cos(x)  +1=0  Aplique  el  método  de  Euler  y  el  método  de  Newton  para  resolver  esta  ecuación  con 
x0  =  0.1.  Compare  resultados. 

4.56  x  =  2  es  un  cero,  de  multiplicidad  m  —  7,  del  polinomio  P(x)  =  —1536  +  6272x  —  11328x2  +  11872x3  — 
7952x4  +  3528x5  —  1036x6  +  194x7  —  21x8  +  x9.  Aplique  el  método  de  Euler  a  este  polinomio  con  xo  =  2.2  (si  usa 
Excel,usar  Xnumbers).  Analice  el  resultado. 

(x2  —  A)(5x2  —  A) 

8x3 


4.57  Sea  g(x)  =  x 


a)  Verifique  que  \/  A  es  un  punto  fijo  de  g 

b)  Si  la  iteración  xn+\  —  g(xn)  converge,  muestre  que  la  convergencia  es  de  orden  q  —  3. 
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4.15 


Un  método  híbrido:  Newton-Bisección. 


Si  el  método  de  Newton  falla  (en  algún  sentido)  en  una  iteración,  podemos  usar  bisección  para  dar  un  pequeño  salto 
y  regresar  al  método  de  Newton  lo  más  pronto  posible. 

Supongamos  que  f(a)f(b)  <  0.  Sea  Xq  —  a  o  Xq  —  b.  En  cada  iteración  una  nueva  aproximación  x'  es  calculada  y  a 
y  b  son  actualizados  como  sigue 


a. )  si  x'  =  xn  —  cae  en  \a,b]  lo  aceptamos,  sino  usamos  bisección,  es  decir  x'  —  —¡r—- 

f'{x o)  r  2 

b. )  Actualizar:  a'  —x',  b'  =  b  o  a'  =  a,  b'  —  x! ,  de  tal  manera  que  f(a')f(b')  <  0. 

Para  garantizar  que  x'  —  xq  —  " — \  £  [«,  b] ,  no  debemos  usar  directamente  este  cálculo  para  evitar  la  división  por 

/  (*o) 

/'(xq)  (que  podría  causar  problemas  de  "overflow"  o  división  por  cero).  Mejor  usamos  un  par  de  desigualdades 
equivalentes. 


Observemos  que  xn+1  e  ]a„,b„[  si  y  sólo  si 


.  f{Xn)  ^  , 

cin  <  xn  <  bn 

/'(*«) 

entonces 

«Si  f'(xn )  >  0 

(«ii  -x„)f'(x„)  <  ~f(xn)  y  (bn  -xn)f(xn)  >  -f(xn) 

O  Si  f(x)<  0 

(«n  -Xn)f(xn)  >  ~f(x„)  y  (bn  -Xn)f(xn)  <  ~f(xn) 

En  este  algoritmo,  se  pasa  a  bisección  si  x1  —  xq  —  ^  ^  sale  del  intervalo,  pero  esto  no  indica  necesariamente  que 

J  (*o) 

la  iteración  de  Newton  tenga  algún  tipo  de  problema  en  ese  paso.  Lo  que  si  es  importante  es  que  se  podría  escoger 
un  intervalo  [a,  b]  hasta  con  extremos  relativos  (que  podrían  ser  mortales  para  el  método  de  Newton)  y  el  tránsito 
sería  seguro  de  todas  formas. 

Un  algoritmo  similar  aparece  en  [12]  (pág.  366).  En  la  implementación,  se  pasa  a  bisección  si  x’  sale  del  intervalo  o  si 
la  reducción  del  intervalo  no  es  suficientemente  rápida. 
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Consideremos  la  función  f(x)  —  0.2sen(16x)  —  x  +  1.75  Esta  función  tiene 
un  cero  en  [1,2].  Así  que  a  —  1  y  b  =  2.  Iniciamos  con  xq  —  1.  La  tabla 
(4.3)  muestra  el  método  de  Newton  y  Híbrido  Newton-bisección  aplicado 
a  esta  ecuación.  El  método  de  Newton  diverge  mientras  que  el  híbrido 
aproxima  la  solución  adecuadamente. 


n 

Newton 

Xi 

Error 

Estimado 

Híbrido 

Xi 

Error 

Estimado 

Método 

Usado 

i 

1.170357381 

0.170357381 

1.17035738114819 

0.170357381 

Newton 

2 

0.915271273 

0.255086108 

1.58517869057409 

0.414821309 

Bisección 

3 

1.310513008 

0.395241735 

1.79258934528705 

0.207410655 

Bisección 

4 

1.539337071 

0.228824064 

1.76166924922784 

0.030920096 

Newton 

5 

1.476007274 

0.063329797 

1.76306225245136 

0.001393003 

Newton 

6 

1.565861964 

0.08985469 

1.76306130340890 

9.49042  xlCP7 

Newton 

50 

-2873.507697 

51 

-1720.319542 

Tabla  4.3  Método  de  Newton  e  híbrido  Newton-bisección  aplicado  a  0.2 seni  l  6x)  —  X  +  1.75  =  0  en  [1,2]- 


4.15.1  Algoritmo  e  Implementación  en  VBA  Excel. 

Hoja  Excel  para  el  Híbrido  Newton-bisección.  Para  hacer  una  hoja  Excel,  usamos  como  referencia  la  figura  (4.22). 


A 

B 

c 

1 

2 

3 

f(x)  = 

0.2*sin(1 6*x)-x+1.75 

4 

f'(x)  = 

3.2*cos(16*X)-1 

5 

6 

II 

o 

X 

7 

a 

b 

delta 

8 

-1 

2 

0.00005 

9 

10 

11 

12 

E 

F 

1  G 

Calcule 

Híbrido 

Error 

Método 

mi  =  xi 

Estimado 

Usado 

-0.30924504293887 

0.690754957 

Newton 

0.84537747853057 

1.154622521 

Bisección 

1 .42268873926528 

0.577311261 

Bisección 

1.47972114111601 

0.057032402 

Newton 

1 .59202270026853 

0.11  2301  559 

Newton 

niaxltr 

10 


Figura  4.22  Hoja  Excel  para  el  híbrido  Newton-bisección. 


Software: 


Cuadernos  LibreOffice  y  Excel 


Código  VBA  4.10:  Híbrido  Newton-Bisección  con  clsMathParser 


Option  Explicit 

Private  Sub  CommandButtonl_Click  ( ) 

Dim  fx,  fpx,  a,  b,  delta,  maxltr,  fi,  co 
fx  =  Cells  (3,  2) 
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fpx  =  Cells (4,  2) 
a  =  Cells  (8,  1) 
b  =  Cells  (8,  2) 
delta  =  Cells  (8,  3) 
maxltr  =  Cells  (8,  4) 

Cali  hibridoNB (fx,  fpx,  a,  b,  delta,  maxltr,  8,  5) 

End  Sub 

Sub  hibridoNB (fx,  fpx,  aO,  bO,  delta,  maxltr,  fi,  co) 

Dim  f  As  New  clsMathParser 

Dim  fp  As  New  clsMathParser 

Dim  testl  As  Boolean,  test2  As  Boolean 

Dim  k,  xO,  xl,  dx,  okfx,  okfpx,  fxO,  fpxO,  fxl,  fa,  a,  b 

okfx  =  f . StoreExpression (fx) 
okfpx  =  fp . StoreExpression (fpx) 

If  Not  okfx  Then 

MsgBox  ("Error  en  f :  "  +  f .ErrorDescription) 

Exit  Sub 

End  If 

If  Not  okfpx  Then 

MsgBox  ("Error  en  fp:  "  +  fp. ErrorDescription) 

Exit  Sub 

End  If 

'No  modificar  a  y  b 
a  =  aO 
b  =  bO 

If  Sgn (f .Evall (a) )  =  Sgn (f .Evall (b) )  Then 
MsgBox  ("Error:  f (a) f  (b) >=0") 

Exit  Sub 

End  If 

k  =  0 
xO  =  a 

Do 

fxO  =  f .Evall (xO) 
fpxO  =  fp. Evall (xO) 

testl  =  (fp(xO)  >  0  And  (a  -  xO)  *  fp(xO)  <  -f(xO)  And  (b  -  xO) 
test2  =  (fp(xO)  <  0  And  (a  -  xO)  *  fp(xO)  >  -f(xO)  And  (b  -  xO) 

If  testl  Or  test2  Or  fxO  =  0  Then 
xl  =  xO  -  fxO  /  fpxO 
dx  =  Abs (xl  -  xO) 
xO  =  xl 

If  Sgn (f. Evall (a) )  <>  Sgn (f. Evall (xl) )  Then 
b  =  xl 
Else:  a  =  xl 


fp(xO)  >  -f (xO) ) 
fp(xO)  <  -f  (xO)  ) 
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End  If 

Cells  (fi  +  k,  co)  =  xl 
Cells(fi  +  k,  co  +  1)  =  dx 
Cells  (fi  +  k,  co  +  2)  =  "Newton" 

Else 

xl  =  a  +  0.5  *  (b  -  a) 
dx  =  (b  -  a)  /  2 
xO  =  xl 

If  Sgn (f .Evall (a) )  <>  Sgn (f .Evall (xl) )  Then 
b  =  xl 

Else:  a  =  xl 
End  If 

Cells (fi  +  k,  co)  =  xl 

Cells (fi  +  k,  co  +  1)  =  dx 

Cells (fi  +  k,  co  +  2)  =  "BisecciV on" 

End  If 

k  =  k  +  1 

Loop  Until  dx  <  delta  Or  k  >  maxltr 

End  Sub 
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4.58  Afine  la  implementación  en  Excel  (observe  que  no  verifica  que  haya  cambio  de  signo). 

4.59  /(x)  =  x3cos(x)  —  xsen(2x)  +  1  tiene  un  cero  en  el  intervalo  [1,2].  Pruebe  aproximar  el  cero  de  /  con  Xq  =  1 .5 
usando  Newton  y  pruebe  usando  el  híbrido  Newton-Bisección  usando  el  intervalo  [1,2]. 

4.60  /(x)  —  x 20  —  1  tiene  un  cero  en  el  intervalo  [0.5,1. 5].  Pruebe  aproximar  el  cero  de  /  con  xq  —  0.5  usando 
Newton  y  pruebe  usando  el  híbrido  Newton-Bisección  usando  el  intervalo  [0.5, 1.5]. 

4.61  Implemente  en  VBA  el  algoritmo  descrito  en  [12]  (pág.  366). 

4.62  Resolver  4(x  —  l)3cos(x)  =  0. 


4.16 


El  Método  de  la  Falsa  Posición 


Este  método  es  todavía  más  viejo  que  el  método  de  Newton,  de  hecho  aparece  en  textos  Indios  del  siglo  V  ([18]).  Su 
orden  de  convergencia  no  vas  allá  de  ser  lineal.  En  esta  sección  vamos  a  dar  una  breve  descripción  del  método. 

La  idea  de  este  método  es  calcular  la  recta  secante  que  une  los  puntos  extremos  (fli,/(fli))  y  )).  Luego  se 

determina  el  punto  m  en  que  esta  recta  corta  el  eje  x  y  este  valor  entra  a  jugar  el  papel  que  en  el  método  de  bisección 
jugaba  el  punto  medio. 
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Figura  4.23  Método  de  la  falsa  posición 


La  recta  secante  tiene  que  une  los  puntos  (a\rf(a\))  y  (b\,f(b]  j)  tiene  ecuación 


Al  resolver  y  —  0  se  despeja  el  valor  de  x,  obteniendo: 


En  este  método  no  se  conoce  a  priori  el  número  de  iteraciones  requeridas  para  alcanzar  la  precisión  deseada  así  que 
se  usa  un  número  máximo  de  iteraciones. 


4.16.1  Algoritmo. 

El  algoritmo  es 


Algoritmo  4.4:  Método  de  falsa  posición 

Datos:  /  e  C[a,b]  con  f(a)f(b)  <  0,  ¿,  maxltr 
Salida:  Una  aproximación  xn  de  un  cero  de  /. 

1  k  —  0  ; 

2  ftji  —  íi f  b —  b .  r 

3  repeat 


fin  f  (bn)  bnf(an) 

f  (bn)  —  f  (a-n) 


5  e\  —  xn  cin',  ti  —  bn  xn; 

6  if  f(xn)f(an)  >  0  then 


7  |  Cln  —  Xn 

8  else 


íi  until  (máx(ei,e2)  <  8  V  k>  maxltr)  ; 

12  return  xn 
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4.16.2  Teorema  de  Convergencia.  Orden  de  Convergencia. 

Dado  el  tratamiento  breve  de  esta  sección,  vamos  a  establecer  un  teorema  de  convergencia  para  el  caso  sencillo  en  el 
que  /  es  convexa.  Digamos  que  la  situación  es  la  misma  que  la  que  se  presenta  en  la  figura  (4.23).  Digamos  entonces 
que  en  [a,  b]  f  cumple 


/"(*)>  0,/(a)<0,/(6)>0 

entonces  /  tiene  exactamente  un  cero  x*  en  [a,b]  y  la  secante  que  conecta  los  puntos  ( a,f{a ))  y  (b,f(b) )  está  encima 
del  gráfico  de  /  e  interseca  el  eje  X  a  la  izquierda  de  x* .  Esto  mismo  pasará  para  las  otras  secantes,  lo  que  significa 
que  el  punto  x  —  b  permanece  fijo  mientras  que  el  otro  punto  se  actualiza  en  cada  paso.  Lo  que  obtenemos  es  una 
sucesión  monótona 


Xn+ 1  —  xn 


f  ixn) 


(x„  -  b) 

f {xn)  f {b) ' 


n  —  1,2,...,  x\  —  a 


(4.12) 


que  es  creciente.  Como  esta  sucesión  permanece  acotada  por  x*  entonces  converge. 

Para  establecer  el  orden  de  convergencia,  restamos  x*  a  ambos  lados  de  (4.12)  y  usamos  el  hecho  de  que  f(x* )  =  0 


xn+ 1  -  ** 


=  x„  —  X 


f(xn) 


(■ xn  ~  b) 
f  (xn)  ~f(b) 


dividiendo  por  xn  —  x*  obtenemos 


xn+l  -  x 
X„  ~  X* 


=  1  - 


x„-b  f(xn)-f(x*) 


/(*n)-/0)  Xn-X* 

Haciendo  x  — >  oo  y  usando  el  hecho  de  que  xn  — >  x*  se  sigue  que 


lim  Xn+1  X*  =  l-(b-x*)f^Ü-=K 


x — yco  xn  —  x 


m 


o  sea,  convergencia  lineal  (en  este  caso  0  <  K  <  1 ). 
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4.63  Implemente  el  método  de  falsa  posición. 

4.64  Explique  cuál  es  la  razón  de  la  escogencia  del  criterio  de  parada  en  este  algoritmo. 

4.65  Aplique  el  método  de  falsa  posición  a  la  ecuación  cos(x)  cosh(x)  —1=0  con  a  —  3n/2  y  b  =  2n.  Compare 
con  el  resultado  que  se  obtiene  al  aplicar  el  método  de  la  secante  y  bisección. 
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4.17 


Método  de  la  Secante 


Aunque  el  método  de  la  secante  es  anterior8  al  método  de  Newton,  a  veces  se  hace  una  derivación  de  este  método 
basado  en  la  iteración  de  Newton  cambiando  la  derivada  f'(xk)  por  una  aproximación,  lo  cual  puede  ser  muy  bueno 
pues  para  algunas  funciones,  como  las  definidas  por  integrales  o  una  serie,  en  los  casos  en  los  que  la  derivada  no 
es  fácil  de  obtener.  Aquí  vamos  a  proceder  igual  que  antes,  con  una  idea  geométrica.  El  método  de  la  secante  tiene 
orden  de  convergencia  de  al  menos  p  =  1.61803  pero  en  un  sentido  que  haremos  más  preciso  al  final  de  esta  sección, 
este  método  es  más  rápido  que  el  método  de  Newton. 

Iniciando  con  dos  aproximaciones  iniciales  xq  y  x\,  en  el  paso  k  +  1,  xk+í  se  calcula,  usando  xk  y  xk_i,  como  la  inter¬ 
sección  con  el  eje  X  de  la  recta  (secante)  que  pasa  por  los  puntos  (xk_i, /(x¡t_i))  y  (xk,f(xk)) 


Figura  4.24  Método  de  la  secante 


Entonces,  si  f(xk)  —  f(xk_i)  ^  0, 


*+1  /(**)-/(**_  i) 

Sin  embargo,  para  cuidarnos  del  fenómeno  de  cancelación  (cuando  xk  «  xk_  \  y  /(x/c)/(x/,_¡ )  >0),  rescribimos  la 
fórmula  como 


Xk  +  1  Xk  f{Xk)- 

Aunque  esta  última  versión  no  es  totalmente  segura,  es  al  menos  mejor  que  la  anterior. 


O  Usualmente  escogemos  xq  y  x¡  de  tal  manera  que  el  cero  que  queremos  aproximar  esté  entre  estos  números. 
Si  la  función  /  es  dos  veces  diferenciable  en  un  entorno  de  un  cero  simple  x*  se  garantiza  que  si  Xq  y  x¡  se 
escogen  "suficientemente  cercanos"  a  x* ,  entonces  el  método  converge  a  x* . 


'El  método  de  la  secante  ya  era  usando  para  calcular  valores  de  la  función  seno  en  algunos  textos  Indios  del  siglo  XV. 
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En  general,  si  Xq  y  X\  no  están  suficientemente  cercanos  a  un  cero,  entonces  puede  pasar  que  haya  intervalos 
[xn,xn_i]  (o  [xn_i,xn] )  sin  un  cero  en  ellos.  Aún  así  el  método  puede  ser  que  converja  aunque  no  se  garantiza 
que  sea  al  cero  buscado. 


9  Cuando  el  método  de  la  secante  converge,  \xk  —  xk_i\  eventualmente  se  vuelve  pequeño.  Pero  en  general, 
|x¿-  —  xk _  ]  |  se  mantiene  bastante  más  grande  que  xk  —  x*  .  Si  |  f'(x)  >  ni  >  0  en  un  intervalo  I  que  contenga 


a  xk  y  a  x* ,  la  estimación  del  error  se  podría  hacer  con 
de  parada  podemos  usar 


!/(**)! 


m 


(ver  Teorema  4.12).  En  todo  caso,  como  criterio 


\xk  -  Xk+1\  <  8  (|xfc+i|  +  1)  y  \f{xk+í)\  <  e 

junto  con  un  número  máximo  de  iteraciones. 


Consideremos  la  ecuación  x3  —  0.2x2  —  0.2x  —  1.2  =  0.  Esta  ecuación  tiene  una  solución  en  el  intervalo  [1,  1.5].  En 
realidad  la  solución  es  x*  =  1.2.  Vamos  a  aplicar  el  método  de  la  secante  con  xq  —  1  y  X\  —  1.5. 


Xo  =  1,  Xi  =  1.5 
Calcular  Xi . 

Xi  =  Xi-/(xi) 
Calcular  x3. 

*3  =  X2-f{x2 ) 

Calcular  X4. 
x4  =  x3-/(x3) 

Calcular  x5. 

x5  =  X4-/(x4) 


(^1  -  *0) 

/(x  1)  -f{x 0) 

{x2  Xq ) 
/(* 2)  -/(* l) 

(^3  ~  X2) 
/(x3)  -f(x2) 

(X4  ~  X3) 

f  (x4)  -/(*3) 


=  1.1481481481481481 


=  1.1875573334135374 


=  1.2006283753725182 


=  1.1999926413206037 


Para  estimar  el  error  vamos  a  usar  \xk  —  xk_\\.  En  la  tabla  (4.27)  hacemos  una  comparación  entre  el  error 
correcto  para  la  solución  x*  =  1.2  y  la  estimación  del  error. 


k 

xk 

l*fc-**l 

5-1 

?r 

1 

5-1 

1 

1 

1.5 

0.3 

0.5 

2 

1.14815 

0.0518519 

0.351852 

3 

1.18756 

0.0124427 

0.0394092 

4 

1.20063 

0.000628375 

0.013071 

5 

1.19999 

7.35868  x  10~6 

0.000635734 

6 

1.200000000000030 

4.31745  x  10~9 
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Consideremos  P(x)  =  x5  —  100x4  +  3995x3  —  79700x2  + 
794004x  —  3160075.  En  la  figura  (4.28)  se  muestra  la  grá¬ 
fica  de  P  con  las  primeras  dos  secantes  usando  Iq  =  22.2 
y  *i  =  17. 


4/ 

■"H) 

1 6  J/^2 

xo 

Ejemplo  4.28  (continuación). 


P  tiene  un  cero,  x*  =  17.846365121...,  en  el  intervalo  [17,22,2],  Vamos  a  aproximar  este  cero  usando  xq  =  17  y 
x-¡  —  22.2  y  también  con  xq  —  22.2  y  x-^  —  17. 


k 

*0  =  22.2 

*k+ 1 

+ 

£  * 

II  1 

-V 

/Oí) 

x0  =  22.2 

xk+ 1 

xj  =17 
\xk  ~  xk+\\ 

/Oí) 

1 

21.70509296 

4.705 

1.44 

21.70509296 

0.494 

1.446 

2 

21.64664772 

0.058 

1.36 

21.63787473 

0.067 

1.369 

3 

20.61844015 

1.028 

6.38 

20.44319288 

1.194 

6.354 

23 

17.84697705 

0.013 

0.02 

21.2200121 

0.429 

3.503 

24 

17.84635118 

0.000 

-0.00 

21.92553159 

0.705 

3.475 

25 

17.84636513 

1.39xl0-5 

5.79283xl0-7 

111.120 

89.194 

627 

26 

17.84636512 

1.37xl0-8 

-1. 86265  xlO-9 

21.925 

89.194 

3.475 

77 

20.57831656 

5110.34 

6.410 

78 

20.57831656 

1.06xl0-14 

6.410 

La  elección  xq  —  22.2  y  x\  —  17  muestra  ser  adecuada.  Nos  lleva  a  la  aproximación  correcta  *26  —  17.84636512. 
En  la  otra  elección  hay  un  fenómeno  de  cuidado:  La  iteración  78  podría  inducirnos  a  error  pues  nos  presenta  a 
Xyg  —  20.57831656  como  un  cero  aproximado  con  error  estimado  1.06  x  10“ 14  pero  f(xy$)  —  6.410!. 

Notemos  que  hay  varios  intervalos  (con  extremos  xk,xk+i )  que  no  contienen  un  cero. 


4.17.1  Algoritmo  e  Implementación  en  VBA  Excel. 

En  este  algoritmo,  como  criterio  de  parada  usamos 

\xk-xk~i\  <  S  (\xk\  +  1)  y  \f(xk)\<e 

junto  con  un  número  máximo  de  iteraciones. 

Hoja  Excel  para  el  método  de  la  secante. La  implementación  en  VBA  para  Excel  recibe  la  función  /  como 
"string",  y  los  valores  x'q,  x\,  ó  y  maxltr.  Esta  implementación  usa  clsMathParser  para  leer  y  evaluar  la  función. 
La  implementación  corresponde  a  la  hoja  Excel  de  la  figura  que  sigue. 
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Algoritmo  4.5:  Método  de  la  secante. 


Datos:  Una  función  continua  f,  las  aproximaciones  iniciales  xq  V  x¡ ,  ó  y  maxltr 
Salida:  Si  la  iteración  converge  a  un  cero,  una  aproximación  x k  del  cero. 

1  ;  =  0; 

2  Xk—\  Xq , 

3  Xfc  —  X\) 

4  while  \xk  —  xk_1\  >  S  (\xk\  +  1)  y  j  <  Nmax  do 

(Xjt-Xfc-t) 


*k+ 1  =  3C/t  -  /(^fc) 
Xjc— 1 

Xk  ^A:+l  / 

/  —  y  + 1 ; 


f(xk)  -f(xk_{) ' 


9  return  x^+1 ; 


Figura  4.25  Hoja  Excel  para  el  método  de  la  secante 


O# 


Software: 


Cuadernos  LibreOffice  y  Excel 


Código  VBA  4.11:  Método  de  la  Secante 


Option  Explicit 

Private  Sub  CommandButtonl_Click  ( ) 

Dim  fx,  xc,  xu,  delta,  maxltr 
fx  =  Cells  (4,  2) 
xc  =  Cells  (8,  1) 
xu  =  Cells  (8,  2) 
delta  =  Cells  (8,  3) 
maxltr  =  Cells  (8,  4) 

Cali  MSecante(fx,  xc,  xu,  delta,  maxltr,  8,  5) 

End  Sub 

Sub  MSecante(fx,  xc,  xu,  delta,  maxltr,  fi,  co) 

Dim  f  As  New  clsMathParser 

Dim  j,  okfx,  xO,  xl,  x2,  fxl,  fxO 

okfx  =  f . StoreExpression (fx) 

If  Not  okfx  Then 

MsgBox  ("Error  en  f :  "  +  f .ErrorDescription) 

Exit  Sub 


End  If 
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j  =  0 
xO  =  xc 
xl  =  xu 

Do  While  Abs  (xO  -  xl)  >  delta  And  j  <  maxltr 
fxl  =  f.Evall(xl) 
fxO  =  f .Evall  (xO) 

x2  =  xl  -  fxl  *  (xl  -  xO)  /  (fxl  -  fxO) 
xO  =  xl 
xl  =  x2 

Cells (fi  +  j,  co)  =  xl 

Cells(fi  +  j,  co  +  1)  =  Abs(xO  -  xl) 

%  +  j,  co  +  2)  =  f. Evall (xl) 

j  =  j  +  1 

Loop 
End  Sub 


Implementación  en  Mathematica.  Este  módulo  tiene  un  argumento  pr  opcional  (con  valor  default  =  20)  para  la 
precisión  en  la  salida. 


Código  VBA  4.12:  Implementación  con  Wolfram  Mathematica. 


MSecante[f_,  xc_,  xu_,  delta_,  raaxltr_,  pr_:20]  := 
Module[{j,  xO,  xl,  x2,  fxO,  fxl}, 

j  =  i; 

xO  =  xc;  xl  =  xu; 

fxO  =  f  /.  (x  ->  xO}//N; 

While [Abs [xO  -  xl]  >  delta  &&  j  <  maxltr, 
fxl  =  f  /.  {x  ->  xl}; 
x2  =  xl  -  fxl* ( (xl  -  xO)/(fxl  -  fxO)); 
fxO  =  fxl;  xO  =  xl;  xl  =  x2; 


j  =  j  +  i; 

%  Print[j,  "  ",  PaddedForm[xl,  (pr,  pr}], 

"  ",  PaddedForm [Abs [xO  -  xl], 


(*Ejemplo*) 

MSecante[xA3  +  x  +  1,  -1,  2,  0.00005,  10,  30] 


{pr,  pr}]]]] 


4.66  ¿Porqué,  en  la  implementación  VBA  Excel,  se  puede  hacer  el  siguiente  cambio? 

fxO  =  f .Evall (xO) 

Do  While  Abs  (xO  -  xl)  >  delta  And  j  <  maxltr 
fxl  =  f. Evall (xl) 

x2  =  xl  -  fxl  *  (xl  -  xO)  /  (fxl  -  fxO) 
fxO  =  fxl 
xl  =  x2 
1  =  j  +  1 

Loop 


4.67  Para  aproximar  el  cero  x*  —  1  de  la  función  f(x)  =  x20 


-1, 
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a)  Aplique  el  método  de  la  secante  con  Xq  —  0.5  X\  —  2.  ¿Hay  algún  problema?. 

b)  Aplique  el  método  de  la  secante  con  xq  —  0  xq  =  1.005. 

c)  Aplique  el  método  de  bisección  con  xq  —  0  x  ¡  —  3. 

d)  Aplique  el  método  de  Newton  con  Xq  —  0. 

4.68  Resuelva  x3  =  0  usando  Newton  con  Xq  =  —0.2.  Resuelva  la  misma  ecuación  usando  bisección  y  secante  con 
el  intervalo  [—0.2, 0.1] 

4.69  Resuelva  f  —  x5  —  100  *  x4  +  3995  *  x3  —  79700  *  x2  +  794004  *  x  —  3160075  usando  Newton  con  xo  =  17. 
Resuelva  usando  bisección  y  secante  con  [17,22.2] 


4.70  Consideremos  la  ecuación  x5/5  +  x4/4  —  0.  Encuentre  xo  y  x¡  de  tal  manera  que  el  cero  x  —  —1 .25  este  entre 
ambos  pero  que  el  método  de  la  secante  aproxime  el 
otro  cero  x  =  0. 


4.71  Considere  /(x)  =  x  —  eos 


0.785  -  xVl  +x2 
1  +2x2 


Como  se  observa  en  la  figura  (??),  esta  función  tiene  un  cero 


cerca  de  x  =  1.  Use  el  método  de  la  secante  para  aproximar  este  cero  con  error  absoluto  estimado  menor  que  0.5  x 
10”5 


Figura  4.26 


4.72  El  método  de  la  secante  no  requiere  que  el  cero  este  entre  Xq  y  X\.  En  el  ejercicio  anterior,  aplique  el  método 
de  la  secante  con  xq  —  0  y  xi  =  0.1 


4.73  Resuelva  la  ecuación  ln2x  —  x  —  1  =0. 

4.74  Considere  la  función  /(x)  =  sgn(x  —  l)^/|x  —  1]  (figura  4.74)  donde  sgn(w)  = 
método  de  la  secante  para  aproximar  el  cero  x*  =  1. 


1  si  u  >  0 

0  si  u  —  0  .  Use  el 
—  1  si  u  <  0 


Figura  4.27 

La  fórmula  para  el  método  de  la  secante  se  podría  modificar  un  poco  más  para  evitar  problemas  de  sobreflujo  o 
división  por  cero. 

Si  |/(xn_i)|  >  |/(x„)|  >0  entonces  reescribimos  la  fórmula  como 
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donde  la  división  por  1  —  s* *  se  hace  solo  si  1  —  sk  es  "suficientemente"  grande.  Implemente  esta  versión  del  método 
y  aplíquelo  a  los  ejercicios  anteriores. 


Secante:  Teorema  de  Convergencia.  Orden  de  Convergencia. 


El  esquema  iterativo 


*k+ 1  =xk~  f(xk)  ■ 


{Xk-Xk-l) 


f(*k )  —/(**_!) 


lo  podemos  reescribir  como 


xk+i  =xk-ck  con  ck  =  f(xk)  ■ 


{xk  Xk i) 


f{xk)  -f(xk- 1) 


así,  ck  es  una  corrección  de  xk.  Esta  corrección  está  compuesta  por  f(xk)  y  la  pendiente  de  la  secante 


f(xk)~f(xk- 1) 

(xfc-xfc_i) 


Hablando  grosso  modo,  si  la  diferencia  xk  —  xk_i  se  hace  pequeña  lentamente,  la  corrección  más  bien  esta  fuerte¬ 
mente  influenciada  por  el  valor  del  factor  f(xk).  Entonces  lo  que  está  localizando  el  método  de  la  secante  es  un  punto 
dónde  /  es  "pequeña". 

En  este  método  no  se  puede  asegurar  que  cada  intervalo  [xn-\,xn]  contenga  al  menos  un  cero  (como  bisección).  Lo 
que  si  se  puede  asegurar  es  que  converge  localmente,  es  decir  converge  si  las  aproximaciones  iniciales  están  suficien¬ 
temente  cerca  de  la  raíz  y  además  que  la  convergencia  es  superlineal  con  orden  al  menos  de  (1  +  \/5)  /I  —  1.61803 
para  ceros  simples.  ¿Qué  significa  que  "las  aproximaciones  estén  suficientemente  cercanas  a  un  cero"?.  La  situación 
es  similar  a  la  del  método  de  Newton.  Para  'amarrar"  el  resultado  debemos  restringirnos  a  un  intervalo  "suficiente¬ 
mente  pequeño"  de  tal  manera  que  se  pueda  asegurar  que  se  cumplen  algunas  condiciones  que  nos  permiten  concluir 
con  la  convergencia. 

La  idea  del  teorema  de  convergencia  es  esta:  Si  x*  es  un  cero  simple  de  /,  usando  el  teorema  de  Taylor  en  Ie  —  {x  £ 
IR  :  \x-x*\  <  e},  establecemos  que 


x*  sería  el  único  cero  en  IE  si  los  tres  factores  de  la  derecha  son  distintos  de  cero,  y  para  esto  es  suficiente  pedir  que 
I£  es  lo  suficientemente  pequeño  como  para  que 


además,  si  ponemos  Me  — 
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j|í  i  /  2 

Xn+\  —  X  |  <  £ 


fM 

2/'(£i) 


<  e  •  eM£  <  e 


lo  que  aplicado  repetidamente  nos  lleva  a 


x„  —  x*  |  <  (eMe)"  1  |xi  —  x* 


Con  lo  cual  establecemos  la  convergencia. 


La  frase  Xo,  *i  son  "aproximaciones  estén  suficientemente  cercanas"  a  un  cero  x*  significan  xq,  X\  G  f£  con  e  sufi¬ 
cientemente  pequeño  de  tal  manera  que 


emáx 

s,t  6 1£ 


f"(s) 

2 m 


<i 


Para  establecer  los  resultados  necesitamos  un  desglose  previo.  Restamos  x*  a  ambos  lados  de  xn+\  =  xn  —  f(xn)  ■ 

'! - y  usamos  diferencia  divididas 

f{Xn)  ~f{xn- 1) 


Xn+1  —  x*  —  xn  —  x*—f(xn) 


\Xn  Xfi—1 ) 
f(xn)  -f(Xn-l) 

/(*«)  “/(**) 


=  (x„  -x*)  (l  -  ^ 

V  (x„-x*)f[xn_  !,X 

V  f\xn-lrxn\) 


=  (x„-x*) 


f\xn  —  l/Xn\  -  f\xn,x*] 

f[xn—l/  Xn] 


r¡  *1  f[Xn/X  ]  f\x n—i,Xft] 

Ahora,  como  j[xn-\,xn,x  j  =  — - — — entonces 


x„_i  —  x* 


(x„+i  -  x*)  =  (x„  -  x*)(x„_i 


X*) 


/[x„_i,x 
f\x>i— 1 


n  -  1,2,... 


(4.13) 


Esto  lo  vamos  a  usar  en  el  siguiente  teorema. 
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Teorema  4.15 


Sea  x*  un  cero  simple  de  /.  Sea  I£  —  {x  G  IR  :  \x  —  x*\  <  e}.  Supongamos  que  /  G  C2It\.  Para  un  e  suficientemente 
pequeño  se  define 


=  máx 
s,te  ie 


f"(s) 

2  f'(t) 


(4.14) 


y  asumamos  que  e  es  lo  suficientemente  pequeño  de  tal  manera  que  se  cumpla  eME  <  1.  Entonces,  el  método  de  la 
secante  converge  a  una  única  raíz  x*  G  tE  para  cualesquiera  dos  aproximaciones  iniciales  xq  f=  x-¡  en  tE. 


Observe  que  el  teorema  exige  que  e  sea  suficientemente  pequeño  de  tal  manera  que 
y  que  eME  <  1. 


roo 

2f(t) 


permanezca  acotada  en  JE 


Prueba.  La  suposición  eME  <  1  se  puede  hacer  ya  que  ME  es  decreciente  y 


lim  Me  = 


/"(**) 

2/;  (x* ) 


<  00 


Lo  primero  que  hay  que  notar  es  que  x*  es  el  único  cero  de  /  en  IE.  En  efecto,  según  la  fórmula  de  Taylor 
tendríamos 


/(x)  —f(x*)  +  (x  -  x*)/'(x*) 


{x  -  x*): 


con  ^  entre  x  y  x* , 


Luego  si  1  G  IE  también  f  G  t£  y  tendríamos 


f(x)  =  (x 


x*)f(x*) 


r  (g)  \ 


ge  le. 


(4.15) 


Si  x  x*,  los  tres  factores  a  la  derecha  de  (4.15),  son  distintos  de  cero.  En  particular,  el  último  es  distinto  de 
cero  pues  por  hipótesis 


/"(g) 

2  f(x*) 


<  eMe  <  1 


Por  tanto,  /  solo  se  anula  en  x  =  x*  en  tE. 

Ahora  vamos  a  probar  la  convergencia.  La  idea  es  mostrar  que  todos  los  xn  's  están  en  fE  y  que  las  aproxima¬ 
ciones  consecutivas  son  distintas  (excepto  que  para  algún  n  suceda  que  f  (xn )  —  0,  en  cuyo  caso  x„  =  x*  y  hay 
convergencia  en  un  número  finito  de  pasos). 

La  prueba  es  por  inducción.  Supongamos  que  xn,  x„_  |  G  ÍE  para  algún  n  y  que  x„  -f  x„_| .  Por  hipótesis  esto 
es  cierto  para  n  —  1.  Ahora,  como  /  G  C2[IE] 
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f[xn—l/xn\ 

f[xn_lrXn,X*] 

entonces,  usando  (4.13), 


/'(£i) 

(z  Ie,  i  —  1,2  (ver  ejercicio  3.6). 

¿/"(&) 


|*n+i  -**|  <  e2 


/"(É2) 

2/'(£i) 


<  e  ■  eM£  <  e 


de  donde  xn  +1  €  í£.  Además,  por  (??)  xf!+i  7^  xn  excepto  que  f(xn)  —  0  y  en  este  caso  xn  —  x*. 
Por  último,  de  (4.13)  tenemos 

\xn+l  ~x*\ <  \xn  -x*|eM£,  n  —  1,2,..., 


lo  que  aplicado  repetidamente  nos  lleva  a 

|xn  —  x*|  <  (eM£)”_1  |xi  —  x*¡ 
Y  como  eM£  <  1  se  sigue  que  xn  — >  x*  si  n  — 5-  00. 


El  teorema  es  de  evidente  valor  teórico  pues  construir  I£  requiere  conocer  x*  .  Aún  así  vamos  a  dar  un  ejemplo  sen¬ 
cillo. 


Considere  /(x)  =  x2  —  1 .  Vamos  a  encontrar  un  intervalo  I£  suficientemente  pequeño,  que  contenga  la  raíz  simple 
x*  —  1,  en  el  que  el  método  de  la  secante  converge  para  cualesquiera  xo,xi  distintos  en  I£.  Como  la  función  es 
sencilla,  esto  se  puede  hacer  por  inspección.  Observe  que  en  este  caso 


M£  —  máxt6  ie 


2 
4 1 


así  que  si  e  =  1/10,  M£  —  5/11  (observe  que  I£  es  cerrado)  y  además  eM£  <  1. 


Entonces,  en  resumen,  todas  las  hipótesis  del  teorema  se  cumplen.  Por  lo  tanto  el  método  de  la  secante  se  garantiza 
que  converge  a  la  raíz  x*  =  1  para  cualesquiera  Xq,X|  distintos  en  1^/10  =  [0.9,1.!]. 
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4.75  En  el  ejemplo  (4.29)  muestre  que  basta  con  tomar  cualquier  e  £  ]0,2/3[. 

4.76  Considere  f(x)  =  x2  —  A  con  A  >  0. 

a)  Explique  porqué,  para  poder  aplicar  el  teorema  (4.15),  solo  podemos  considerar  e  tal  que  \f~A  —  e  >  0. 

b)  Determine  los  valores  de  e  (en  términos  de  \/~A)  de  tal  manera  que,  a  la  luz  del  teorema  (4.15),  podamos 
asegurar  que  el  método  de  la  secante  converge  a  la  única  raíz  \J~A  £  I£  para  cualesquiera  dos  aproximaciones 
iniciales  xq  Y  xq  en  I£. 

4.77  Considere  f(x)  —  x3  —  1 .  Determine  £  de  tal  manera  que,  a  la  luz  del  teorema  (4.15),  podamos  asegurar  que 
el  método  de  la  secante  converge  a  la  única  raíz  1  £  I£  para  cualesquiera  dos  aproximaciones  iniciales  xq  7^  x  ¡  en  I£. 


4.19 


Secante:  Orden  de  convergencia. 


Ahora  nos  ocuparemos  de  la  demostración  formal  del  teorema  acerca  del  orden  de  convergencia.  La  idea  es  esta: 
poniendo  en  =  xn  —  x*  en  (4.13)  tenemos 


^n+1 


€n&n—l 


fW-  1,X 

f[%n— 1 


n 


1  2 
-*-/  ••• 


(4.16) 


De  aquí  se  sigue  que  si  x*  es  un  cero  simple  (/(x*)  =  0,  f'(x*)  Y  0),  xn  — >  x*  y  si  f"  existe  y  es  continua  en  las 
cercanías  de  x* ,  entonces  /[xM_ \,xn,x*]  — >  \f"(x*)  Y  f[xn- 1  —  xn ]  — >  f'{x*)>  así 


lim 


Xn±  1  ~ 

xn  —  X* 


—  0 


es  decir,  la  convergencia  debe  ser  más  que  lineal:  xn  —  x*  domina  a  xn+  ¡  —  x* ,  pero  (xn  —  x*  Y  si  podría  ser  propor¬ 
cional  a  xn+i  —  x*. 

Para  establecer  el  orden  de  convergencia  de  manera  intuitiva,  usamos  un  razonamiento  informal  que  nos  lleva  a  la 
sucesión  de  Fibonacci.  Reescribimos  (4.16)  como 

K+il  =  |ewen_i|  C,  con  C  >  0 


ahora  multiplicamos  a  ambos  lados  por  C  y  ponemos  En  ~  C  en  \  y  entonces 

—  EjjEn—\/  En  y  0  si  n  y  oo 


Ahora  tomamos  logaritmos  a  ambos  lados  y  definimos  yn  =  ln(l /  En  ),  y  queda  la  conocida  sucesión  de  Fibonacci 


y  n+ 1  —  y«  5”  Vn-\ 


(4.17) 
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La  sucesión  se  resuelve  para  yn  resolviendo  la  ecuación  característica  t2  —  t  —  1  —  0.  Esta  ecuación  tiene  dos  solu¬ 
ciones  fi  =  (1  +  \/5)/2  y  Í2  —  (1  —  v/5)/2.  La  solución  general  de  (4.17)  es 

J/n  —  cií”  +  C2Í2/  con  C\,  C'i  constantes. 

Si  n  — >  00  entonces  yn  — >  00  y  debe  ser  c\  7^  0  (pues  — >  0).  Luego  si  n  — >  00  entonces 

yn  ~  Cjí" 

de  donde,  pasando  yn  a  términos  de  e.n  y  poniendo  q  —  t1 

CeM" 

C^  =  rrl 

Ceci?n+1 

por  lo  que  t1  —  1.61803...  sería  el  orden  de  convergencia.  Veamos  ahora  todo  lo  anterior  de  manera  rigurosa. 


Teorema  4.16 


Asumiendo  las  hipótesis  del  teorema  anterior,  el  orden  de  convergencia  del  método  de  la  secante  es  como  mínimo 
p  =  ( 1 +  v/5)/2  =  1.61803... 


Prueba.  Supongamos  que  xq,x\  £  I£  y  que  todos  los  xn's  son  distintos.  Entonces  xn  ^  x*  y  xn  — >  x*  con¬ 
forme  n  — >  00. 

El  número  p  del  teorema  satisface  la  ecuación 


p2  —  p  +  1 


(4.18) 


De  (4.13)  se  sigue 


\xn+\  ~  x*  |  <  \xn  ~  x*  |  \xn-\  ~  x*  |  '  Me. 


(4.19) 


Sea 


En  —  A4e  |  xn  x 


(4.20) 


EJERCICIOS  151 


Entonces,  multiplicando  (4.19)  por  Mf  tendremos 

E«+l  EnEn—l 


Luego 


En  <  EP",  E  =  máx  (e0/  eJ/p)  (4.21) 

En  efecto,  procedemos  por  inducción.  El  resultado  es  cierto  para  n  —  0  y  n  —  1.  Supongamos  ahora  que  (4.21) 
es  cierto  para  n  y  n  —  1.  Entonces,  usando  (4.18) 

En+ 1  <  EnEn_i  <EP  EP  =  EP  (P+1>  —  EP  P  =  EP  , 


Ahora,  de  (4.20) 


|x„  -x*|  <  e„,  £„  = 


Puesto  que  £q  =  M|xq  —  x*  |  <  eM£  <  1  y  lo  mismo  pasa  para  E¡  entonces  £  <  1.  Ahora  basta  notar  que 


7-1  fjn 

£;z+l  , ,p-lEP  wp-l 


=  Mp  =  Mp  ,  para  toda  n. 


Newton  vs  Secante. 


■  — r - 4) — - — -,  cada  paso  en  el  método  de  la  secante  requiere  solo  una  evaluación  adi- 

/ \xn)  ~  f  (xn—l) 

cional  de  /,  o  sea  que  dos  iteraciones  en  el  método  de  la  secante  son  a  lo  sumo  'tan  costosas'  como  una  iteración  en 

i+2  /  i\P2  f  i  \  P+l 

el  método  de  Newton.  Ahora,  puesto  que  EP  —  i  El’  I  —  ÍEP  \  ,  dos  iteraciones  en  el  método  de  la  secante 

llevan  a  un  método  de  orden  p2  =  p  + 1  —  2.618...  Así  que  con  un  esfuerzo  parecido,  el  método  de  la  secante  converge 
localmente  más  rápido  que  el  método  de  Newton. 

Al  igual  que  el  método  de  Newton,  el  método  de  la  secante  exhibe  convergencia  lineal  para  el  caso  de  raíces  múltiples 
(ver  por  ejemplo  [19]) 


Como  xn+\  —  xn  —  f{xn) 


4.20 


Un  Método  Híbrido:  Secante-Bisección 


Uno  de  los  problemas  del  método  de  la  secante  es  que  aunque  un  cero  x*  de  /  esté  entre  las  aproximaciones  iniciales 
i'O  y  X\,  no  se  garantiza  que  el  método  converja  (si  converge)  a  x* ,  además  de  posibles  "caídas". 
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Consideremos  f(x)  —  x20  —  1.  Si  aplicamos  el  método  de  la  secante  con  Xq  —  0.5  y  X\  —  1.5  tenemos  un  compor¬ 
tamiento  no  deseable,  tal  y  como  se  muestra  en  la  tabla  (4.4) 


n 

xn 

Error  estimado 

2 

0.5003007284 

0.9996992716 

3 

0.5006013663 

0.0003006379 

4 

25769.46097 

25768.96037 

5 

0.5006013663041813 

25768.96037 

6 

0.5006013663041813 

0 

Tabla  4.4  Problemas  con  el  método  de  la  secante 


Para  evitar  comportamientos  no  deseables  y  asegurar  que  siempre  la  nueva  iteración  esté  en  un  intervalo  que  con¬ 
tenga  al  cero  que  se  quiere  aproximar,  combinamos  el  método  de  la  secante  con  el  método  de  bisección. 

Para  describir  el  procedimiento  usamos  int{b,c}  para  denotar  el  más  pequeño  intervalo  cerrado  que  contiene  a  fe  y 
c,  es  decir  int{b,c}  es  [ c,b ]  o  [b,c]. 

El  algoritmo  es  como  sigue:  iniciamos  con  un  intervalo  [a,b]  en  el  que  f  (a)  y  f(b)  tengan  signos  opuestos.  Inicial¬ 
mente  el  intervalo  de  bisección  es  [c,b]  pues  iniciamos  con  c  —  a.  En  el  proceso  se  actualizan  a,  b  y  c  de  la  siguiente 
manera: 


i.  Si  f(a)  y  f(b)  tienen  signos  opuestos,  se  aplica  una  iteración  del  método  de  la  secante  (la  cual  actualiza  a  y  b) 

ii.  Si  /(«)  y  f(b)  tienen  signos  iguales,  se  aplicará  una  iteración  del  método  de  la  secante  solo  si  se  conoce  que 
xn+\  estará  en  int{c,b}.  Sino,  se  aplica  bisección  tomando  como  b  el  punto  medio  del  intervalo  int{c,b}. 

iii.  Finalmente  se  actualiza  el  intervalo  int{c,b}  actualizando  c  por  comparación  del  signo  de  f(c)  y  f(b). 


En  la  figura  (4.28)  se  muestra  un  caso  particular  con  las  primeras  dos  iteraciones. 
La  figura  (4.29)  ilustra  una  posible  actualización  de  c. 


El  algoritmo  requiere  saber  a  priori  si  xn+\  G  int{c,b}  pero  sin  aplicar  la  iteración  (para  evitar  una  posible  "caída" 
evitamos  la  división  por  f(xn)  —/(*„_  i)).  Digamos  que  int{c,b}  —  [p,q],  entonces 


xn+\  =  xn  -f(xn) 


(xn  Xn_i') 
f  ( Xn )  —  /  (xn—i ) 


e  [p,q] 


P<Xn 


f  ixn) 


(Xn  ~Xn-l)  < 

f(Xn )  ~f(xn- 1) 


si  y  sólo  si 
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si  ponemos  A /  =  f(xn)  —  f(xn._¡ )  entonces  xn+1  e  [p,q]  si  y  sólo  si  se  cumple  alguna  de  las  dos  condiciones  sigu¬ 
ientes 


i. )  si  A/  >  0  entonces  (p  —  xn)A f  <  —f{xn)(xn  —  xn_i)  <  (q  —  xn)A f 

ii. )  si  A/  <  0  entonces  (p  —  xn)A f  >  —f(xn)(x„  —  x„_i)  >  (q  —  xn)A f 


4.21 


Híbrido:  Algoritmo  e  Implementación. 


En  este  algoritmo,  TestSecante  hace  la  prueba  xn+\  G  int{c,  b) ,  es  decir,  determina  si  la  siguiente  iteración  de  secante 
estará  en  le  intervalo  int{c,b}. 

Si  es  el  caso,  se  aplica  el  método  de  la  secante  con  xq  —  a  y  x\  —  b  y  se  procede  a  la  actualización  de  a  y  b,  es  decir 
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a  —  X\  y  b  —  X’i-  Si  los  argumentos  se  reciben  por  referencia  entonces  son  modificados  en  la  subrutina.  En  código 
VBA  Excel  sería 

Sub  secanteltr (xO,  xl) 

If  f  (xl )  o  f  (xO)  Then 

x2  =  xl  -  f  (xl)  *  ((xl  -  xO)  /  (f  (xl)  -  f  (xO)  ) ) 
xO  =  xl 
xl  =  x2 

End  If 

End  Sub 


Algoritmo  4.6:  Híbrido  Secante-Bisección. 


Datos:  una  función  continua  /  y  a,  b  tal  que  f  (a)f(b)  <  0  y  ó 
Salida:  una  aproximación  del  cero. 

1  c  —  a-, 

2  n  —  0; 

3  repeat 

4 

5 

6 

7 

8 
9 

10 


14 


if  f(a)f(b)  <  0  then 
|  Aplicar  Secanteltr(a, b) 

else 

if  TestSecante  —true  then 
|  Aplicar  Secanteltr  {a, b) 

else 

Aplicar  bisección  b  —  b  —  0.5 (c  —  b) ; 


Intervalo  para  bisección; 
if  f{a)f{b)  <  0  then 
[_  c  =  a 

n  —  n  +  1 

15  until  ( \c  —  b\  <  S(\b\  +  1)1  Or  (n  >  maxItrOv  f(b)  <  S) ; 

16  return  b; 


Implementación  en  VBA  Excel  Para  hacer  una  hoja  Excel,  usamos  como  referencia  la  figura  (4.30). 


A 

B  C  D  E 

F 

G 

H  1 

1 

j 

2 

Híbrido  Secante  Bisección 

3 

4 

f(x>  = 

x  A  5  -  lOOx  A  4  +  3995  x  A  3  -  79700x  A  2  ♦  794004x  -  3160080 

5 

6 

Método 

Error 

7 

a 

b  delta  Maxltr  b 

c 

usado 

Estimado  f(b) 

8 

21.34 

22.45  5E-1  1  20  22.450000 

21 .340000 

Secantel 

0.097000404  -2.961297207 

9 

21.437000 

22.450000 

Secantel 

0.903932827  -3.460053664 

10 

_ [ _ [  j _ (21.546067 

22.450000 

Bisección 

0.451966414  -0.047000848 

Figura  4.30  Hoja  Excel  para  el  híbrido  secante-bisección. 


EJERCICIOS  155 


La  subrutina  principal  es  HSecanteBiseccion .  Esta  subrutina  usa  el  evaluador  de  funciones  clsMathParser  para  leer 
y  evaluar  la  función  /.  También  implementamos  dos  funciones  secanteltr  (a,  b,  f )  y  x2estaEntre  (c,  b,  a,  f )  .  Am¬ 
bas  son  llamadas  desde  HSecanteBiseccion  y  usan  la  función  /.  secanteltr  (a,b,  f)  hace  una  iteración  del  método 
de  la  secante  y  actualiza  a  y  b . 


Software: 


Cuadernos  LibreOffice  y  Excel 


Código  VBA  4.13:  Híbrido  Secante-Bisección 


Option  Explicit 

Private  Sub  CommandButtonl_Click  ( ) 

Dim  fx,  a,  b,  delta,  maxltr 
fx  =  Cells  (4,  2) 
a  =  Cells  (8,  1) 
b  =  Cells  (8,  2) 
delta  =  Cells  (8,  3) 
maxltr  =  Cells  (8,  4) 

Cali  HSecanteBiseccion (fx,  a,  b,  delta,  maxltr,  8,  5) 

End  Sub 

Sub  HSecanteBiseccion (fx,  aa,  bb,  delta,  maxltr,  fi,  co) 
Dim  f  As  New  clsMathParser 

Dim  okf  As  Boolean 
Dim  testl  As  Boolean 
Dim  test2  As  Boolean 

Dim  a,  b,  n,  c,  fa,  fb 

okf  =  f . StoreExpression (fx) 

If  Not  okf  Then 

MsgBox  ("error  en  f :  "  +  f .ErrorDescription) 

Exit  Sub 

End  If 

a  =  aa 
b  =  bb 
c  =  a 

fa  =  f .Evall (a) 
fb  =  f. Evall (b) 
n  =  0 

Do 

If  Sgn(fa)  <>  Sgn(fb)  Then 
Cells  (fi  +  n,  co)  =  b 
Cells (fi  +  n,  co  +  1)  =  c 

Cali  secanteltr  (a,  b,  f)  'Actualiza  a  y  b 
Cells  (fi  +  n,  co  +  2)  =  "Secantel" 

Cells (fi  +  n,  co  +  3)  =  Abs (b  -  c) 

Else 

If  x2estaEntre (b,  c,  a,  f)  Then 
Cells (fi  +  n,  co)  =  b 
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Cells (fi  +  n,  co  +  1) 
Cali  secanteltr  (a,  b, 
Cells (fi  +  n,  co  +  2) 
Cells (fi  +  n,  co  +  3) 

Else 

'bisección 
Cells (fi  +  n,  co)  =  b 
Cells (fi  +  n,  co  +  1) 
b  =  b  +  0.5  *  (c  -  b) 
Cells (fi  +  n,  co  +  2) 
Cells (fi  +  n,  co  +  3) 
End  If 
End  If 


=  c 

f)  'Modifica  a  y  b 
=  "Secante2" 

=  Abs  (b  -  c) 


=  c 


=  "BisecciV  on" 
=  Abs  (b  -  c) 


fa  =  f .Evall (a) 
fb  =  f  .Evall  (b) 

Cells (fi  +  n,  co  +  4)  =  fb 
If  Sgn(fa)  =  Sgn(fb)  Then 

'nada 

Else:  c  =  a 


End  If 

n  =  n  +  1 

Loop  Until  Abs(c  -  b)  <  delta  Or  n  >=  maxltr  Or  Abs(fb)  <  delta 

End  Sub 


Sub  secanteltr  (xO,  xl,  f)  'Modifica  xO  y  xl 
Dim  x2,  fxl,  fxO 
f xl  =  f. Evall (xl) 
fxO  =  f .Evall (xO) 

x2  =  xl  -  fxl  *  (  (xl  -  xO)  /  (fxl  -  fxO)  ) 
xO  =  xl 
xl  =  x2 

End  Sub 


Function  x2estaEntre  (b,  c,  a,  f) 

Dim  testl  As  Boolean 
Dim  test2  As  Boolean 

Dim  q,  xO,  xl,  p,  pf,  Df,  x2,  fxl,  fxO 

q  =  Application .Max (b,  c) 
p  =  Application .Min (b,  c) 
xO  =  a 
xl  =  b 

fxl  =  f. Evall (xl) 
fxO  =  f .Evall (xO) 

Df  =  fxl  -  fxO 

pf  =  AAAAAAAA  *  (xl  -  xO) 

testl  =  (Df  >  0  And  (p  -  xl)  *  Df  <  pf  And  pf  <  (q  -  xl)  *  Df) 
test2  =  (Df  <  0  And  (p  -  xl)  *  Df  >  pf  And  pf  >  (q  -  xl)  *  Df) 
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x2estaEntre  =  testl  Or  test2 

End  Function 


Considere  la  función  f(x)  =  x5  —  100x4  +  3995x3  — 
79700x2  +  794004x  —  3160080.  Sus  ceros  son 
x*  —  18,19,20,21,22.  En  la  tabla  (??)  se  muestra  los 
valores  de  b  y  c  al  aplicar  el  método  híbrido  secante- 
bisección  con  xq  —  21.34  y  X\  —  22.45  (para  aproximar 
x*  =  22) 


n 

b 

c 

Método 

i 

21.4370004 

21.34 

Secante  1 

2 

21.54606717 

22.45 

Secante  1 

3 

21.99803359 

22.45 

Bisección 

4 

22.00708175 

22.45 

Secante2 

5 

21.99997119 

21.99803359 

Secante  1 

6 

21.99999958 

22.00708175 

Secante  1 

7 

22 

22.00708175 

Secante2 

En  la  línea  3  se  observa  que  b  —  21.54606717  ye  —  22.45.  En  la  siguiente  iteración  se  usa  bisección.  Esto  sucede  porque 
si  se  aplica  una  iteración  de  la  secante  con  los  valores  "actuales"  a  —  21 .4370004035587,  b  —  21.5460671728629  (para 
los  cuales  no  hay  cambio  de  signo)  entonces  el  valor  futuro  habría  sido  xn+j  —  20.7894316058807  y  este  valor  no  está 
en  el  intervalo  actual  [c,b]  —  [22.45, 21.54606717],  Entonces  se  usó  bisección.  Si  no  se  hubiera  hecho  esto,  entonces  el 
método  de  la  secante  (clásico)  hubiera  convergido  al  cero  x*  —  21  que  no  es  el  que  está  en  el  intervalo  inicial. 


En  la  tabla  se  muestra  los  valores  de  b  y  c  al 
aplicar  el  método  híbrido  secante-bisección,  con 
xq  —  0.5  y  X\  =  2,  para  aproximar  el  cero  x*  =  1  de 
/(x)  =  x20  —  1. 

Recordemos  es  desempeño  desastroso  del  método 
de  la  secante,  que  se  mostró  en  la  tabla  (4.4),  para 
este  mismo  problema. 


n 

b 

c 

Método 

|  b  —  c\ 

i 

2.000000 

0.500000 

Secante  1 

1.43051  x  10~' 

2 

0.500001 

2.000000 

Secante  1 

1.499997139 

3 

0.500003 

2.000000 

Bisección 

0.749998569 

4 

1.250001 

0.500001 

Secante  1 

0.008646705 

5 

0.508648 

1.250001 

Secante  1 

0.73280628 

6 

0.517195 

1.250001 

Bisección 

0.36640314 

7 

0.883598 

1.250001 

Bisección 

0.18320157 

8 

1.066800 

0.508648 

Secante  1 

0.153141481 

9 

0.661790 

1.066800 

Secante  1 

0.293907403 

1 

0  0.772892 

1.066800 

Bisección 

0.146953701 

11 

0.919846 

1.066800 

Bisección 

0.073476851 

12 

0.993323 

1.066800 

Secante2 

0.025927918 

13 

1.040871942 

0.99332301 

Secante  1 

0.004405128 

14 

0.997728138 

1.040871942 

Secante  1 

0.041636217 

15 

0.999235725 

1.040871942 

Secante2 

0.040855271 

16 

1.000016672 

0.999235725 

Secante  1 

0.000764154 

17 

0.999999879 

1.000016672 

Secante  1 

1.66716xl0~! 

18 

1 

1.000016672 

Secante2 

1.66716x10~! 
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4.78  Considere  la  función  f(x)  —  x5  —  100x4  +  3995x3  —  79700x2  +  794004x  —  3160080.  Aplique  el  método  de  la 
secante  con  xq  —  21.34  y  xq  —  22.45  y  compare  con  el  ejemplo  (). 

4.79  Aplique  el  método  de  la  secante  clásico  a  la  ecuación  x2ü  —  1=0. 

4.80  Uno  de  los  pasos  delicados  del  algoritmo  es  la  instrucción 

If  Sgn  ( f  (a) )  =  Sgn(f(b))  Then 

'nada 

Else:  c  =  a 


Explique  porqué  se  actualiza  c  de  esta  manera. 


4.22 


Interpolación  Inversa. 


Supongamos  que  /  es  una  función  monótona  en  un  intervalo  I  alrededor  de  uno  de  sus  ceros  x*.  Si  tenemos  dos 
aproximaciones  xq  y  x¡  de  este  cero  en  I  entonces,  si  Xq  =  /_1( yo)  y  xq  =  /_1(j/i),  podemos  construir  la  siguiente 
tabla  de  diferencias  divididas 


y  x 

yo  *o 

2/i  *i  /1[yo,yi] 


Como  queremos  aproximar  x*  —  f  1  (0)  entonces 


O  la  aproximación  x^  la  podemos  obtener  por  interpolación  lineal 


x2  =  x0  +  (0-yo)f  1[yo/2/i] 


9  la  aproximación  x'3  la  podemos  obtener  por  interpolación  cuadrática. 

Si  1/2  =  f(x2)  entonces  (formalmente)  xy  =  /_1( J/2)  y  actualizamos  la  tabla 

y  * 

yo  *0 

yi  xí  /_1[}/o,yi] 

yi  x 2  /  1[yi,y2]  f~l[yo,yi,yi] 


con  lo  que  podemos  calcular  X3 


x3=x2  +  (0-y0)(0-yi)/  í[yo,yi,y1}  =  x2  +  yoyif  1[yo,yi,yi) 


EJERCICIOS  159 


y  entonces  1/3  =  f(x 3)  y  (formalmente)  x3  =  /  1  (1/3)- 


Suponiendo  que  t/o  j/i  son  pequeños,  entonces  1/0J/I  es  todavía  más  pequeño,  haciendo  que  la  corrección  que  se 
le  esta  sumando  a  xi  sea  pequeña. 

Si  es  necesario,  se  puede  actualizar  de  nuevo  la  tabla 


y  x 


yo 

X 0 

y\ 

X\ 

rl[yo,y\] 

3/2 

X2 

rl\yiryi\ 

f  l[yo,y\,yi] 

yo 

x3 

r1  [yi'Vo] 

f~\y\’y2,yi\  f^\yo,y\,yi,yi\ 

y  calcular 


*4  =  *3 - wjmf  y4=/(* 4),  x4  =  f  1(x4 ) 


En  general,  el  proceso  converge  rápidamente:  x¿- 


x*  si  k 


00. 


Usemos  este  método  para  resolver  x  —  e  x  —  0. 


Necesitamos  inicialmente  dos  pares  (xo,yo)  y  (*i,yi  )■  Si  tomamos  como  aproximaciones  iniciales  xo  =  0.5  y  xi  =  0.6 
entonces  yo  —  —0.106531...  y  y4  —  0.0511884... 

9  La  primera  tabla  de  diferencias  divididas  es 


y _ x _ 

-0.106531  0.5 

0.0511884  0.6  0.63403892 


Por  tanto 


x2  -  0.567545 
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Ejemplo  4.33  (continuación). 


9  La  segunda  tabla  de  diferencias  divididas  es 


y _ x _ 

-0.106531  0.5 

0.0511884  0.6  0.634039 

0.00062884  0.567545  0.641925  0.0735906 


Por  tanto  X3  =  0.567143 


9  La  tercera  tabla  de  diferencias  divididas  es 


y _ * _ 

-0.106531  0.5 

0.0511884  0.6  0.634039 

0.00062884  0.567545  0.641925  0.0735906 

-1.07985  x  1CT6  0.56714260  0.6381499  0.07374301  0.001430372 


Por  tanto  X4  =  0.5671427538 


El  análisis  de  convergencia  de  este  algoritmo  no  es  simple  dada  la  complicada  estructura  de  las  derivadas  sucesivas 
de  las  funciones  inversas  /  . 


4.23 


Interpolación  Cuadrática  Inversa. 


Una  variante  muy  usada  de  interpolación  inversa  es  la  llamada  Interpolación  Cuadrática  Inversa. 

Si  estamos  buscando  ceros  reales,  no  es  conveniente  interpolar  con  una  parábola  (en  vez  de  una  recta)  para  aproxi¬ 
mar  estos  ceros.  Como  necesitamos  la  intersección  con  el  eje  x  (la  aproximación  del  cero),  esto  no  sería  posible  si  el 
discriminante  es  negativo. 

En  vez  de  una  parábola  y  =  P(x)  que  interpola  tres  puntos  (x,,i/¡),  i  =  0,1,2,  buscamos  la  parábola  x  —  Q(y)  que 
interpola  los  puntos  (j/¿,x¡),  i  —  0,1,2.  Esta  parábola  siempre  interseca  al  eje  X  en  x  =  Q(0). 


Observe  que  este  método  requiere  que  /(xq),  f{x\  )  y  f  (X2)  sean  distintos.  Por  ejemplo,  si  tratamos  de  utilizar  este 
método  para  calcular  \Ja  con  el  polinomio  f(x)  —  x2  —  a  y  si  comenzamos  con  xq  —  —a,X\  —  0  y  X2  —  a,  entonces 
f(xo)  =  f(x\ )  y  no  podríamos  calcular  el  polinomio  interpolante. 


El  método  de  interpolación  cuadrática  inversa  es  el  siguiente 
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Sea  P(x)  —  x3  +  x  +  1.  La  única  solución  real  de  la 
ecuación  P(x)  =  0  es  x*  =  —0.6823278... .  Usando  los  pun¬ 
tos 

{  (-1,P(-1)),  (— 0.5,P(— 0.5)),  (0,P(0))  } 
calculamos  el  polinomio  interpolante  con  los  datos 

{(P(-l),-l),  (P(— 0.5),— 0.5),  (P(0),0) } 

El  polinomio  cuadrático  (inverso)  interpolante  es 

Q(y)  =  -0.718182  +  0.5y  +  0.218182 y2 
Y  la  aproximación  a  la  solución  es 

Figura  4.31  Cuadrática  (inversa)  interpolante. 

x3  =  Q(o)  =  -0.718182 


9  Si  /  es  monótona  en  un  intervalo  adecuado,  entonces  si  tenemos  tres  puntos  distintos  xn_2,xn_i  y  xn,  se 
puede  calcular  el  polinomio  interpolante  P2(y)  para  los  tres  puntos  {yn-2iXn-2),  (yn-l/*n-l)  y  {ytuXn),  donde 
y  n— i  f{xn—i)- 


9  Xn+1=P2{ 0) 

9  Descartamos  xn_2  y  calculamos  xn+2  de  la  misma  manera  como  calculamos  xn+¡,  esta  vez  usando  (yn-¡,xn_¡ ),  (yn,xn) 

Y  (y„+l,*»+l). 

Formalmente, 


Teorema  4.17 


Supongamos  que  /  £  C2[a,b]  y  que  el  cero  x*  £  [a,  b] .  Si  f'(x*)  0  entonces  existe  ó  >  0  tal  que  la  iteración 

xn+i  xn—i  f(xn—i)Pn/  w  2,3,... 


con 

=  (f(xn^2))2(xn-xn_ i)  +  /(*„_2)/(*n-l)(*w-l  -  Xn)  +  1)  -  f{xn))f(xn)(xn_2  -  Xn_ i) 

(f(Xn-l)  -  f(Xn-2))(f(Xn)  ~  f(xn-2))(J(x„)  ~f(Xn- 1)) 
converge  a  x*  para  ciertas  aproximaciones  iniciales  xq,x2,x2  £  [x*  —  5,  x*  +  ¿]. 
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El  número  de  evaluaciones  se  puede  reducir  usando  un  truco  algebraico 


/(*»- l) 

/(*n) 


f(xn-l) 

f  On-2) 


f{xn-2) 

f(x„) 


P  =  S(T(R  —  T)(xn  —  xn_i)  —  (1  —  R)(xf¡_1  —  x„_2)) 


Q  =  (T  —  1)(R  —  1)(S  —  1) 


^n+1  ^n— 1  “b  ^  2,3,... 


4.23.1  Algoritmo  e  Implementación  en  Excel. 


Algoritmo  4.7:  Interpolación  Cuadrática  Inversa. 

Datos:  una  función  /,  las  aproximaciones  xq,x\,X2,  S  y  maxltr 
Salida:  una  aproximación  p3  a  un  cero  de  /. 

1  k  =  2; 

2  po  —  x o /  Pi  —  x-í,  P2  —  x2.; 

3  P3  =  P2,P2  =  Pl,Pl  =  P0-’, 

4  while  \p3  —  p2\  <  $  0  k  <N  do 


6 


5 


PO  ~  Plr  Pl  ~  Plr  P2  =  P3 d 
/o  =/(Po)//l  =/(Pl)//2  =  p(P2); 


7 


9 


8 


P  -  S(T(R  -  T)(p 2  -  pi)  -  (1  -  R)(pi  -  po)); 
Q  —  (T  —  1)(R  —  1)(S  —  1); 


10 


P 

P3  =  Pi  +  q-, 


11 


k  —  k  + 1; 


12  end 


13  return  p3; 


Para  la  estimación  del  error  se  puede  usar  |  p3  —  p? 


Implementación  en  Excel.  La  implementación  que  sigue  corresponde  a  la  hoja  de  la  figura  (??).  Observe  que  en  la 
implementación  no  hay  manejo  de  excepciones.  Para  afinar  el  programa  se  deberá  controlar  los  valores  que  retorna  la 
función  para  verificar  que  no  hay  "infinitos",  "Nan"  ni  números  complejos. 
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A 

B  C 

D 

E 

F 

1 

Método  de  Interpolación  Cuadrática  Inversa 

2 

3 

f(x)  = 

4xA3-16xA2+17x-4 

Interpolación  Cuadrática  Inversa 

4 

6 

N 

TOL  xo 

Xl 

X2 

|xn  -  xn.,| 

7 

12 

5E-10  3,0 

2,6 

2,8 

8 

2.445684 

0.35431571 

9 

2,411112 

0.034572109 

10 

2.406924 

0.004188459 

11 

2.406803 

0.00012041 

12 

2.406803 

6.14902E-08 

13 

2.406803 

1.03917E-13 

La  implementación  requiere  importar  la  biblioteca  clsMathParser  (para  leer  y  evaluar  la  función  /)  y  agregar  un 
campo  de  texto  y  un  botón. 


Código  VBA  4.14:  Interpolación  Cuadrática  Inversa  con  clsMathParser 


Private  Sub  CommandButtonl_Click  ( ) 

Cali  ICI 
End  Sub 

Sub  ICIO 

Dim  Formula  As  String 

Dim  FormulaEstaBien  As  Boolean 

Dim  fun  As  New  clsMathParser 

n  =  Cells  (7,  1) 

tol  =  Cells  (7,  2) 

pO  =  Cells  (7,  3) 

pl  =  Cells  (7,  4) 

p2  =  Cells  (7,  5) 

'leer  fórmula 
Formula  =  TextBoxl . Text 

'revisar  sintaxis  y  asignarla  como  función  actual 
FormulaEstaBien  =  fun. StoreExpression (Formula) 

If  Not  FormulaEstaBien  Then 

MsgBox  ("Error  de  sintaxis:  "  +  fun.ErrorDescription) 

Exit  Sub 

End  If 
k  =  2 
p3  =  p2 
p2  =  pl 
pl  =  pO 

Do  While  k  <  n  Or  Abs  (p3  —  p2 )  <  tol 
pO  =  pl 
pl  =  p2 
p2  =  p3 

FO  =  fun.Evall (pO) 

F1  =  fun.Evall (pl) 

F2  =  fun.Evall (p2) 
r  =  F1  /  F2 
s  =  F1  /  FO 
t  =  FO  /  F2 

p  =  s  *  (t  *  (r  -  t)  *  (p2  -  pl)  -  (1  -  r)  * 


(pl  -  pO) ) 
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Qu  =  (t  -  1)  *  (r  -  1)  *  (s  -  1) 
p3  =  pl  +  p  /  Qu 
Cells  (7  +  k  -  1,  5)  =  p3 
Cells(7  +  k  -  1,  6)  =  Abs (p3  -  p2) 
k  =  k  +  1 
Loop 
End  Sub 


Software: 


Cuadernos  LibreOffice  y  Excel 


Aproxime  la  raíz  más  grande  de  f(x )  =  4x3  —  16x2  +  1 7x  —  4. 

Solución:  En  la  figura  se  puede  ver  la  gráfica  de  la  función 

/■ 


9  Si  iniciamos  con  los  tres  puntos  Xq  —  1.5,  x¡  —1,xi  —  2.5  el  método  aproxima  la  raíz  x*  —  1.26466. 


xO 

xl 

x2 

|x_n  -  x_(n-l) 

1,5 

2 

2,5 

1, 666666667 

0.833333333 

1,573593074 

0.093073593 

1, 745140714 

0.171547641 

1,488651258 

0.256489456 

1,343629367 

0.14502189 

1,277823721 

0.065805647 

1,264876662 

0.012947059 

1,264658507 

0.000218155 

1,26465829 

2, 1718*10 A  (-7) 

9  Si  iniciamos  con  los  tres  puntos  Xq  —2,Xi—  2.5,  X2  —  3e\  método  aproxima  la  raíz  correcta. 


xO 

2 


xl 


x2 


|x_n  -  x_(n-l) 


2,5 


2,3512820512821 
2,  4021859153538 
2, 4070625620152 
2, 4068034905016 
2, 4068032513232 
2, 4068032513242 


0.648717949 
0.050903864 
0.004876647 
0.000259072 
2, 39178*10A (-7) 
9,  40581*10''  (-13) 
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El  método  de  interpolación  cuadrática  inversa,  como  el  de  la  secante,  se  debe  usar  con  otro  método  porque,  además 
de  ser  muy  vulnerable  a  problemas  asociados  con  la  precisión  de  la  máquina,  no  se  garantiza  que  la  nueva  aprox¬ 
imación  quede  en  un  intervalo  que  contenga  a  la  raíz  x* .  Para  aclarar  esto  supongamos  que  tenemos  tres  puntos 
a  <b  <  c  y  sean  A  —  f(a),B  =f(b),C  —  f(c)  y  d  —  P2(0). 

Si  por  ejemplo  AB  <  0  y  AC  <  0  entonces  x*  e  [ a,b ]. 


BC  AC  AB 

*  ~  (A  -  B)(A  -  C)  +  (B  -  A)(B  -  C)  +  ( C  -  B)(C  -  A ) 

Si  d  E  [a,  b]  descartamos  c  y  reordenamos  los  puntos  de  nuevo  para  calcular  la  siguiente  aproximación.  Pero  podría 
pasar  que  d  [a,b]  o  aún  que  d  esté  muy  cercano  de  a  o  muy  cercano  a  b.  Entonces  d  no  se  puede  usar.  En  vez 
de  esto,  usamos  el  intervalo  [a,  b]  con  el  método  de  la  secante  y  si  tenemos  problemas,  usamos  bisección.  El  método 
de  Brent  se  encarga  de  hacer  una  delicada  y  eficiente  transición  entre  un  método  y  otro,  basado  en  el  análisis  de 
situaciones  que  pudieran  provocar,  entre  otras  cosas,  underflow,  overfloiv  o  división  por  cero. 


Versión  más  reciente  (y  actualizaciones)  de  este  libro: 
http://www.tec-digital.itcr.ac.cr/revistamatematica/Libros/ 
http://dl.dropbox.eom/u/57684129/revistamatematica/Libros/index.html 
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5.1 


Introducción 


rb 

La  integral  definida  /  f(x)  dx  no  siempre  se  puede  calcular  usando  el  teorema  fundamental  del  cálculo  porque  hay 

Ja 

funciones  que  no  tienen  primitiva  elemental,  es  decir  la  integral  indefinida  no  se  puede  expresar  en  términos  de  fun¬ 
ciones  elementales.  En  estos  casos,  las  integrales  definen  una  nueva  función. 


a.)  J e*2  dx  —  — ^  Erfi(x) 

/SPT1  Y 

— - —  dx  —  Sinlntegral(x) 


c. ) 

d. ) 


cosx 


dx  —  Coslntegral(x) 


dx  —  ExplntegralEi  (x) 


ÍZ 

e. )  Integral  de  Fresnel  C(z)  =  J  cos(nx2 / 2)  dx 

f. )  etc. 


Aquí  solo  consideramos  métodos  de  integración  aproximada  de  la  forma 


rb  n 

/  f(x)  dx^J^iVif(xi) 
Ja  1=1 


(5.1) 


donde  los  nodos  xq  <  x\  <  x^  <  ...  <  x„  están  en  [a,b\.  A  los  w/s  se  les  llama  "pesos". 


Fórmulas  de  Newton-Cotes. 


Las  fórmulas  de  Newton-Cotes  son  fórmulas  del  tipo 

rb  n 

/  w(x)f(x)dx  =  Y^Wif(xi)  +  En,  h  —  (b  —  a)/n,  Xi  —  a  +  i-h. 

■>a  !=0 

Para  determinar  los  pesos  se  usa  la  fórmula  de  interpolación  de  Lagrange. 

Sea  /  e  Cn+1[a,b].  Sea  P„(x)  el  polinomio  de  grado  <  n  que  interpola  /  en  los  n  +  1  puntos  (distintos)  xo,x\,...,xn 
en  el  intervalo  [a,b].  Para  cada  valor  fijo  xE  [a,b]  existe  £(x)  £]a,b[  falque 


f(x)-Pn(x) 


f{n+1Hax))lr 

(n  +  1)!  1 


-x0)(x 


Xn) 


Entonces 


&+1Hax))(r 

(n  +  1)!  1 


x0)(x  -  xt) ■ ■  ■  (x 


x„)  dx 


(5.2) 


En  particular,  usando  la  forma  de  Lagrange  del  polinomio  interpolante,  P„(x)  —yoLn,o(x)  +J/iLn/i(x)  +...  +ynLn,n(x) 
^  %  —  %  ■ 

con  L„  fríx)  —  TT - tenemos 

i=o  Xk  ~  Xi 
i+k 


Teorema  5.1 


Sea /E  Cn+Í[a,b].  Sea  P„  (x)  el  polinomio  de  grado  <n  que  interpola  /  en  los  n  +  1  puntos  (distintos)  xq,X\ ,  ...,xn 
en  el  intervalo  [a,b].  Existe  r¡  E]a,b[  tal  que 

x 
Xk 

n 

siempre  y  cuando  (x  —  x¿)  sea  de  un  mismo  signo  en  [a,b]. 
i= 0 


rb  n  rb  n 

/  f(x)  dx='¡TJVk  n 

Ja  Ja  ¡=0 

Í¿k 


(5.3) 


Nota:  aquí  usamos  el  teorema  del  valor  medio  para  integrales:  Si  en  [a,b]  G  es  continua  y  q>  integrable  y  de  un 

rb  rb 

mismo  signo,  entonces  existe  r¡  £]a,b[  tal  que  /  G(x)<p(x)  dx  —  G(y)  /  cp(x)  dx. 

Ja  Ja 

rb  n 

Puede  pasar  que  /  ]^[ (x  —  x¡)  dx  —  0.  En  este  caso  se  debe  hacer  un  cambio  en  la  fórmula  del  error.  Para  esto 

Ja  1=0 

necesitamos  el  siguiente  teorema: 
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Teorema  5.2 


Sea  /  €  Cn+1[a,b).  Sean  XQ,X\,...,xn  n  +  1  puntos  «o  necesariamente  distintos  en  [a,b\,  entonces 


f{x)  =  P„(x)  +  f[x0,xlr...,xn,x]y[(x  -  x¡) 

i— 0 

n  i— 1 

donde  P„ (x)  =  [xq, x¡]]^[ (x  —  x¡)  es  un  polinomio  de  grado  <  n  que  interpola  /  en  xo,Xi,...x„  en  el 

i=0  i= 0 

siguiente  sentido:  Si  un  punto  u  aparece  repetido  k  +  1  veces  entre  los  números  Xq,X|,...,x„,  entonces  P¡j\x)  — 
/W(x),  m  =  0,l,-,k 


Volvamos  ahora  a  nuestro  problema:  Primero  observemos  que  podemos  reescribir  la  fórmula  de  error.  Sea  En  — 

(„  +  !)!  fj'1  *''' 


n 

En  =  f[xo,Xlr...rXn,gx]y[(x  ~X¡) 
i= 0 


Si  Xk+i  es  un  nodo  arbitrario, 


f\xQ,X  i, Xfc,  x]  f[x0,Xl . Xk/Xk+1]  f\xQ,X\,  ...,Xk_j_i,xJ  (x  Xfc_ ) 


rh  n 

Luego,  si  /  (x  —  Xj)  dx 
•'a  i= o 


H  +  l 

0,  /  <E  C,1+2  [«,/?]  y  si  n  (x  —  Xj  )  mantiene  el  mismo  signo  en  [a,  b  ,  entonces 
i= 0 


..,Xk,Xk+1\Yl(x  -  Xi)  +  /[x0,X!, 


i= 0 


W+l 

...,xfc+i,x]J3(x-x;)dx 

í=0 


. . . ,  Xj^-_j_ ^ ,  X ]  (x 


y(”+2)  (y') 
(«  +  2)! 


x¡)  dx,  i¡  e]a,b[ 


n 

xk+1)Y\{x  -  X¡)  dx 
¿=o 


Resumiendo, 


Teorema  5.3 


I!  )1+1 

Si  /  J3(x  —  x¿)  dx  —  0,  f  €  Cn+2[fl,b]  y  si  (x  —  x¡)  mantiene  el  mismo  signo  en  [a,b\,  entonces 
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EJERCICIOS 

5.1  Supongamos  que  /  es  integrable  en  el  sentido  de  Riemann  en  [a,b].  Usando  un  solo  punto  de  interpolación 
(x0,yo),  f(x)  —  yo  +  f[x o,x]  (x  —  xo).  Usando  el  teorema  (5.1)  o  el  teorema  (5.3),  muestre  que 

a)  Six0  =  fl,  [  f  (x)  dx  —  (b  —  a)f  (a)  +  — 

b)  (Regla  del  punto  medio)  Si  x0  —  (a  +  b)/2  y  x0  =  x\,  entonces 

Ja  f(x)dx  =  (b-a)f(xo)  +  -  ^ 


5.2  Supongamos  que  /  es  integrable  en  el  sentido  de  Riemann  en  [a,  b] .  Si  partimos  el  intervalo  en  n  subintervalos 
de  tamaño  h  —  (b  —  a)/n  y  aplicamos  a  cada  subintervalo  [x,,i',+1J  la  regla  del  punto  medio,  muestre  que 


b  —  a 
n 


£/(«+(i-l/2)ft)  + 

;=l 


f"{y)(b-a)3 
24  n 


y  e]a,b[ 


5.3 


Regla  del  Trapecio. 


rb 

En  la  regla  del  trapecio,  para  aproximar  /  f{x)  dx  dividimos  el  intervalo  [n,b\  en  n  subintervalos:  si  h  —  (b  —  a)/n 

Ja 

y  X{  =  a +  i  h,  en  cada  subitervalo  [x¡,  x,+1  J,  cambiamos  la  función  /  por  el  polinomio  interpolante  de  grado  1  (figura 
5.1). 


Y 


y  =  f(x) 


Figura  5.1  Regla  del  trapecio 


rh  'U^,1  rxí+ 1 

/  f(x ) dx  =  E  /  /(*) dx 

Ja  z-_q  Jxí 


fx  i+i 

Para  aproximar  cada  integral  /  f(x)  dx  necesitamos  el  polinomio  que  interpola  a  /  en  (x¡,/(x¿)),  (x;+i,/(x¡+i)) : 

J  X[ 

P(x)  =  f(x¡)  — — f1+1^  +  /(x¡+i)  - —  — —  +  E  con  E  —  (x  —  x¡)(x  —  x¿+1)^  —  (si  f"  es  continua  en  [x;,x¿+i] ). 
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f‘+'f(Xi)(l^+nxM)(l^A  +  Eix 
\  [/(*;)  +/(*m)]  +  jx  ,+1  (x  ~  xi)(x  ~  xi+ 1/  dx 


[*i+\ 

Para  calcular  /  E  dx  necesitamos  recordar  el  teorema  del  valor  medio  para  integrales:  Si  en  [x¡,  x¡  +.  |  _  G  es  con- 

JXi 

r%i+ 1  í-^i+i 

tinua  y  cp  integrable  y  de  un  mismo  signo,  entonces  existe  r¡¡  G  ]x;,x¿+ 1  [  tal  que  /  G(x)<p(x)  dx  =  G(t/¿)  /  <p(x)  dx. 

JXi  Jx¡ 

Ahora, poniendo  G(x)  =  /"(£(x))/2  y  <p(x)  —  (x  —  x¿)(x  —  xí+1),  obtenemos 

t-tí+i  h3 

Jx  (x  ~  xi)(x  ~  x¡+ 1)  2  d*  =  Vi  e]x¿,x¿+1[. 


Observe  que  (x  —  x¿)  (x  —  x¿+i )  tiene  el  mismo  signo  sobre  [x/,x¿+i]  (siempre  es  negativa)  y  que  /  (x  —  x¿)  (x  —  x¿+i )  dx 

J x¡ 

-h3/ 6. 


Finalmente: 


/*  x  ¿  _j_  i  ^2  jfí 

J ^  f{x)dx  -  -  [f(x¡)  +  f{xi+1){-  — /  £i  e  [xifxi+1]. 


(5.5) 


Si  ponemos,  para  abreviar  los  cálculos,  G,(x)  =  P  (x)  +  (x  —  x¡  ')(x  —  x¿+ i)/"(£;(x))/2,  con  P.(x)  el  polinomio  (lineal) 
interpolante  en  [x,',x!+i],  entonces 


/■t  fX\  fX 2  [Xn 

/  f(x)dx  —  /  Go(x)dx+  /  Gi(x)dx  +  ...  +  /  G„_i(x)dx 

dfl  Jxq  J  X^  JX„_  1 


*2 

*1 


fXn 
Xn— 1 


h  í  n~1  \  h3  ,!_1 

=  y  (  /(xo)  +/(xn)  +  2  £  /(x¿)  )  -  ^  E  /"(%) 


/=! 


fc=0 


—  $ 

donde  h  = - ,  €  [x,-,  x;+il  y  x¡  =  a  +  i  ■  h,  i  —  0,1 

n 


Podemos  simplificar  la  fórmula  observando  que 


7  3  )¡-l 

“12  E /"('/,) 


k=0 


h2 

-nU0-«) 


n— 1 

E/"0fc) 

k=0 
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La  expresión  en  paréntesis  cuadrados  es  un  promedio  de  los  valores  de  f"  en  [, a,b\ ,  por  lo  tanto  este  promedio  está 
entre  el  máximo  y  el  mínimo  absoluto  de  f"  en  [a,b]  (asumimos  f"  continua).  Finalmente,  por  el  teorema  del  valor 
intermedio,  existe  £  €.]a,b[  tal  que  f"(£)  es  igual  a  este  valor  promedio,  es  decir 


-g  I =  -^b-a)h2 


k= 0 


12 


/"(£Ue]«,fc[ 


(Regla  compuesta  del  trapecio). 


Aunque  sabemos  que  /  sen  (x)  dx  =  2,  vamos  a  usar  esta  integral  para  ver  como  funciona  la  regla  compuesta  del 

Jo 

fn 

trapecio.  Aproximar  /  sen  (x)  dx  con  tres  subintervalos  y  estimar  el  error.  Además  determinar  n  tal  que  el  error 

Jo 

sea  |£|  <  0.5  x  10-8. 


7T  —  o  Tí  Tí  2tz 

Solución:  n  —  3,  h  —  — - —  =  — ,  x0  =  0,  X\  —  — ,  x2  =  —  y  x3  =  tí.  Entonces, 


sen(x)  dx : 


Tí/1 


sen(0)  +sen(7r)  +2  ■  (sen(7r)  +  sen(27r/3))]  —  1.813799364234... 


El  error  estimado  |  E  | ,  en  valor  absoluto,  es  < 
este  caso  M  —  1  y  entonces  |£|  <  0.287095... 


Tí  ■  (7l/3)2 

12 


M  donde  M  es  el  máximo  absoluto  de  \f"(x)\  en  [0, n\.  En 
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Ejemplo  5.2  (continuación). 


Para  determinar  n  tal  que  |E|  <  0.5  x  10  8.  Procedemos  así:  Sabemos  que  el  máximo  absoluto  de  f"  en  [0, 7t]  es 
M  —  1,  entonces 

|£|  jn/n)2  _  n3 


12 


Tí 


12  12n2 

8 


Como  queremos  \E\  <  0.5  x  10  ,  basta  con  que  —  2  —  0-5  x  10  .  Despejando  obtenemos, 

-  22732.603 


n  > 


Tí 


12-0.5  x  10- 


Tomando  n  =  22732,  obtenemos  la  aproximación  /  sen(x)  dx  rts  1.99999999681673,  que  efectivamente  tiene  ocho 

Jo 


decimales  exactos. 


EJERCICIOS 

5.3  Sea  /  G  C2[a,b]  y  í,k  E]a,b[,  k  =  0,1 ,...,«  —  1.  Muestre  que  existe  £  G]a,b[  tal  que 


n— 1 

Lfivk) 

— =r(« 


2z  +  l 
2n  +  2 


/*1  r  1 

5.4  Si  |/("+1^(x)|  <  M  en  [—1,1],  estime  el  error  al  aproximar  j  f(x)  dx  con  J 
polinomio  que  interpola  a  /  en  los  n  + 1  nodos  de  TChebyshev  x,  —  eos 

5.5  La  función  de  Bessel  de  orden  cero  se  define  como 


Tí 


1  rn 

Jo(x)  —  —  /  cos(xsen  t)dt 
tí  Jo 


Pn{x)  dx  donde  Pn{x)  es  el 
i  —  0,1 


Derivando  bajo  el  signo  integral  obtenemos 


JÓM 

Jo(x) 


- /  sentsen(xsent)dt 

Tí  Jo 

1  i7*  - 

- /  (senf)  cos(xsení)df 

7T  Jo 


í  1  1  rn 

a)  Muestre  que  |J¿”  (x)|  <  —  ldt  —  1,  n  =  0,1,2,... 

b)  Dado  ¿  >  0,  determine  n  de  tal  manera  que  si  aproximamos  fo(x)  con  la  regla  compuesta  del  trapecio,  el 
error  sea  <  5. 
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5.6  Muestre  que  la  regla  del  trapecio  es  exacta  si  /  es  un  polinomio  de  grado  1. 

f2ex  J 

5.7  Considere  la  integral  I  =  J  dx . 

a)  Aproximar  la  integral  con  la  regla  compuesta  del  trapecio  con  n  —  4 

b)  Estime  el  error  en  la  aproximación  anterior. 

c)  Estime  n  de  tal  manera  que,  usando  la  regla  del  trapecio,  el  error  estimado  de  la  aproximación  sea  <  0.5  x 
10”10. 

/■I  _  2 

5.8  Considere  la  integral  I  —  /  e  x  dx . 

Jo 

a)  Aproximar  la  integral  con  la  regla  compuesta  del  trapecio  con  n  —  4 

b)  Estime  el  error  en  la  aproximación  anterior. 

c)  Estime  n  de  tal  manera  que,  usando  la  regla  del  trapecio,  el  error  estimado  de  la  aproximación  sea  <  0.5  x 
10”10. 

5.9  De  una  función  /,  conocemos  la  siguiente  información 


Aproximar 


X 

/(* ) 

0 

3.5 

0.2 

3.1 

0.4 

3 

0.6 

2.8 

0.8 

2.6 

f{x)  dx  usando  regla  del  trapecio  con  n  —  4. 


5.4 


Trapecio:  Algoritmo  e  Implementación. 


La  implementación  la  hacemos  con  base  en  el  cuaderno  de  la  figura 

A  B  C  D  E 


Figura  5.2 


Software:  Cuadernos  LibreOffice  y  Excel 
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Código  VBA  5.1:  Cuaderno  Excel  para  el  método  del  Trapecio 


Prívate  Sub  CommandButtonl_Click  ( ) 

Cali  trapecio 
End  Sub 

Sub  trapecio () 

Dim  N  As  Integer 
Dim  Formula  As  String 
Dim  estaBien  As  Boolean 

Dim  Fun  As  New  clsMathParser  'Evaluador 
'limpiar  celda  del  resultado 
Cells  (7,  5)  =  "" 

'intervalo  de  integración 
a  =  Cells (7,  3) 
b  =  Cells  (7,  4) 

N  =  Cells  (7,  1) 

'leer  fórmula  f (x)  desde  el  campo  de  texto 

Formula  =  txtBoxl.Text 

estaBien  =  Fun . StoreExpression (Formula) 

If  Not  estaBien  Then 

MsgBox  ("Error  "  +  Fun.ErrorDescription) 

Exit  Sub 
End  If 

suma  =  0 
h  =  (b  -  a)  /  N 
For  i  =  1  To  N  -  1 
xi  =  a  +  i  *  h 
suma  =  suma  +  Fun .Evall  (xi) 

Next  i 

suma  =  h  /  2  *  (Fun. Evall (a)  +  Fun. Evall (b)  +  2  *  suma) 
Cells (7,  5)  =  suma 

End  Sub 


5.5 


Regla  del  Simpson. 


En  vez  de  usar  interpolación  lineal,  usamos  interpolación  cuadrática 
buscando  una  mejora  en  el  cálculo.  Por  simplicidad,  vamos  a  hacer  el 
análisis  en  el  intervalo  (i'o, *2]  ■  Para  construir  la  parábola  que  interpola 
/  necesitamos  los  puntos  xq,x^  y  xj_. 
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Sea  / continua  en  [a,b\.  Interpolando  /  en  [a,b]  con  xq  —  a>  xi  —  (b  +  a)/2  y  x2  =  b  obtenemos  el  polinomio  de 
Lagrange  P2{x).  Entonces, 

f(x)  =  ?2(x)  +f[x o,X\,X2,x\{x  —  Xq)(x  —  X\)(x  —  X2) 


Luego, 


rb 

/  f{x)  dx 
Ja 


rb 

/  Pi{x)  +  (x  —  xo)(x  —  x\)(x  —  x2)f^  (^(x))/2  dx 
Ja 

1 1/(«)  +4/(xa)  +/(&)]  +  (*-x0)(x-xi)(x-x2)/(4)(£(x))/2dx 


fb 

En  este  caso,  /  (x  —  xo)(x  —  xi)(x  —  X2)  dx  =  0.  Tomando  X3  =  xi,  el  polinomio  Q(x)  =  (x 
Ja 

es  de  un  mismo  signo  sobre  [a,  b] .  Aplicando  el  teorema  (5.3)  tenemos 


(a+fe)^2 


(x  —  b) 


rb 

/  /(x) dx 
Ja 


k  f(4)(; /)  fb 

3  [/(«)  +4/(xi)+/(fe)]  +  1  ja  Q{x)dx,  t]  €  ]a,b[ 

|  [/(«)+  4/(xi)+/(fe)]  -  /  ?7e]«,t[ 


.  ,  4  (b  —  a 

pues  ^  Q(x)dx=-  —  I  — — 


Para  obtener  la  regla  compuesta  de  Simpson  necesitamos  77  par  para  poder  escribir 

/•&  rX2  fX  4  /-X,, 

/  f{x)dx—  /  f(x)dx+  /  /(x)dx  +  ...+  /  /(x 

Ja  Jx  o  «/  X2  Jxn~2 

Luego  calculamos  cada  una  de  las  n/1  integrales: 


dx 


J^+2f{x)dx  =  ^  [/(xfc)  +4/(xfc+1)  +  /(xfc+2)]  -  ^ 


/75 


con  77)t  e]xfc,xfc+2[  y  h  —  (xk+2  -  xk)/2. 


rx  2  rx  4  rxn 

/  /(x)dx+  /  f(x)dx  +  ...  +  /  f(x)dx 

Jx  o  J  X2  J  %n—2 

u  f  n/2  n/ 2-1 

ó  f(a)  +  /(&)  +4¿/(x2i._i)  +2  ^  f{x2¡) 

Z— 1  i=l 


-  E 

k=l 


90 


con  77*.  e]x*,xfc+2[  y  h  =  (b  —  a)/n. 
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(Regla  compuesta  de  Simpson). 


La  simplificación  del  término  de  error  se  hace  como  se  hizo  en  la  regla  del  Trapecio. 

Aunque  la  regla  de  Simpson  es  muy  popular  en  integración  numérica  (note  que  con  la  misma  cantidad  de  evalu¬ 
aciones  obtenemos  una  aproximación  con  un  error  más  pequeño)  la  regla  del  Trapecio  es  más  eficiente  en  ciertos 
situaciones,  como  cuando  trabajamos  con  polinomios  trigonométricos. 


Aunque  sabemos  que  /  sen(x)  dx  =  2,  vamos  a  usar  esta  integral  para  ver  como  funciona  la  regla  de  Simpson. 

Jo 

fn 

a. )  Aproximar  J  sen(x)  dx  con  n  —  4  y  estimar  el  error. 

b. )  Estime  n  de  tal  manera  que  la  regla  de  Simpson  aproxime  la  integral  con  un  error  |E|  <  0.5  X  10~8. 


a.)  Solución:  Como  n  —  4,  calculamos  x0/  x\  x2  x3  y  x4. 


n  =  4 


71  —  0  71 


Tí 


Tí  3tí 


i 


h  —  — - —  =  — ,  xq  =  0,  xi  —  x2  =  — ,  x3  =  —  y  x4  —  n  Entonces, 

71  7t/4 

sen(x)  dx  w  — —  ísen(0)  +  senízi)  +  4  ■  ( sen(7r/4)  +  sen(37i/4) )  +  2  ■  sen(7r/2)j  =  2.004559754984... 
o  3 


7T  •  (  TZ ! 4)4 

El  error  estimado  |E|,  en  valor  absoluto,  es  <  - — - M  donde  M  es  el  máximo  absoluto  de  /i4)  (x)  en  [0, 

180 

En  este  caso  M  =  1  y  entonces  |£|  <  0.00664105... 


Tí 
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Ejemplo  5.3  (continuación). 


b.)  Solución: 

Sabemos  que  el  máximo  absoluto  de  / en  [0,  n\  es  M  —  1,  entonces 


(b  —  a)h 4  7r5 

\E\  < - •  M  = - j 

1  1  “  180  180«4 


Como  queremos  |£|  <  0.5  x  10  8,  basta  con  que  ^  4  <  0.5  x  10  8.  Despejando  obtenemos. 


”  ~  V  180  ■  0.5  x  10-8  ~  13579 


Tomando  n  —  136,  obtenemos  la  aproximación  /  sen(x)  dx  ss  2,00000000316395...,  que  efectivamente  tiene  ocho 

Jo 

decimales  exactos. 


5.6 


Simpson:  Algoritmo  e  Implementación. 


Notemos  que  no  se  requiere  que  n  sea  par,  podríamos  multiplicar  por  2  y  resolver  el  problema.  Sin  embargo  vamos 
a  suponer  que  n  es  par  para  tener  control.  Una  manera  directa  de  implementar  la  regla  adaptativa  de  Simpson  es 
alternar  los  x¡  de  subíndice  par  y  los  Xj  de  subíndice  impar  y  multiplicarlos  por  4  y  2  respectivamente.  Esto  se 
puede  hacer  en  una  sola  línea. 


Algoritmo  5.1:  Regla  adaptativa  de  Simpson 
Datos:  f(x),  a,  b  y  n  e  N  par. 

rb 

Salida:  Aproximación  de  /  f(x)  dx. 

Ja 

1  suma=  0; 

2  h  =  (b  —  a)/n; 

3  for  i  —  0  to(«  —  1)  do 

4  suma=suma+/[«  +  i  ■  h\  +  4  •  f[a  +  (i  + 1)  •  h]  +  f[a  +  ( i  +  2)  ■  h\; 

5  i  —  i  +  2; 

6  return  suma  /i/3.0 
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Implementación  en  Mathematica  para  n  par. 

Simpson [f [x _ ] ,  a_,  b_,  n_]  :=  Module [ { h,  suma  =  0}, 

suma  =  0.0; 
h  =  (b  -  a)  /n; 

For[i  =0,  i  <=  (n  -  1),  i  =  i  +  2, 
suma  = 

suma  +  f [a  +  i*h]  +  4*f[a  +  (i  +  l)*h]  +  f[a  +  (i  +  2)*h]]; 
Print [h*suma/3 . 0] 


(*Corrida*) 

f [ x _ ]  =  Sin [x] ; 

Simpson[f,  0,  Pi,  4] 
2.0045597549844207 


Implementación  en  wxMaxima  para  n  e  N  arbitrario. 

simpson (f , xl, x2, n) := ( [ j,h, suma] , 
suma : 0 . 0, 

h:  ev ( (x2-xl) / (2*n) , numer) , 
for  j:0  thru  2*(n-l)  step  2  do  ( 

suma=suma  +  f(xl  +  j*h)  +  4 . 0*f  (xl+ ( j  +  1) *h)  +  f (xl+ ( j+2) *h) 

), 

h*suma/3 . 0 

)$ 


/*Corrida*/ 
f (x) : =sin (x) $ 

simpson (f , 0, %pi, 2 ) ; 
2.0045597549844207 


EJERCICIOS 

5.10  Sea  /  £  C4[a,b],  rjk  £]«,&[,  k  =  l,...,n/2  y  h  —  — .  Muestre  que  existe  £  E]a,b[  tal  que 


n/ 2 

E 

k=l 


fW(Vk) 


90 


h5=  i8Ó  (&  ~  «)*4/t4)  (í) 


5.11  Si  |/("+1^(x)|  <  M  en  [—1,1],  estime  el  error  al  aproximar  J  f(x)  dx  con 
polinomio  que  interpola  a  /  en  los  n  + 1  nodos  de  TChebyshev  x¡  —  eos  ^  ^  —  tí 

5.12  La  función  de  Bessel  de  orden  cero  se  define  como 

1  fn 

Jq(x')  —  —  /  cos(xsenf)df 
tí  Jo 


(  Pn  (x)  dx  donde  P„  (x)  es  el 
,  i  —  0,1,. ...n. 
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Derivando  bajo  el  signo  integral  obtenemos 


JÓM 

Jo  (*) 


i  /’7r 

- /  sen  f  sen  (x  sen  f)  df 

7T  Jo 

- /  (senf)  cosíxsenfjdf 

n  Jo 


a)  Muestre  que  |/l"Vx)|  <  —  /  ldf  —  1,  n  =0,1,2,... 

7T  JO 

b)  Dado  <5  >  0,  determine  n  de  tal  manera  que  si  aproximamos  /g(x)  con  la  regla  compuesta  de  Simpson,  el 
error  sea  <  ó. 

c)  Implemente  en  VBA  Excel,  una  función  JoSimpson(x,ó )  para  aproximar  Jo (x),  usando  la  regla  de  Simpson, 
con  un  error  estimado  <  ó. 

d)  En  una  hoja  Excel,  realice  la  representación  gráfica  de  fo(x)  con  x  G  [—5,5]. 

e)  La  función  /o(x)  tiene  un  cero  x*  en  [2,3].  Implemente  una  versión  del  método  de  bisección  y  una  versión 
del  método  de  Newton  que  operen  con  la  función  JoSimpson  (x,0.5  x  10~10)  y  aproxime  en  cada  caso  x* 
con  un  error  estimado  <  0.5  x  10~8. 

5.13  Muestre  que  la  regla  de  Simpson  es  exacta  si  /  es  un  polinomio  de  grado  3. 

f2  ex 

5.14  Considere  la  integral  I  =  /  — dx . 

J 1  x 

a)  Aproximar  la  integral  con  la  regla  compuesta  de  Simpson  con  n  =  4 

b)  Estime  el  error  en  la  aproximación  anterior. 


c) 


Estime  n  de  tal  manera  que,  usando  la  regla  de  Simpson,  el  error  estimado  de  la  aproximación  sea  <  0.5  x 
10~10. 


5.15 


Considere  la  integral  I  =  /  C  1  dx. 

Jo 

a)  Aproximar  la  integral  con  la  regla  compuesta  de  Simpson  con  n  —  4 


b)  Estime  el  error  en  la  aproximación  anterior. 


c)  Estime  n  de  tal  manera  que,  usando  la  regla  comuesta  de  Simpson,  el  error  estimado  de  la  aproximación  sea 
<0.5  x  10~10. 

5.16  De  una  función  /,  conocemos  la  siguiente  información 


X 

/(*) 

0 

3.5 

0.2 

3.1 

0.4 

3 

0.6 

2.8 

0.8 

2.6 

r  0.8 

Aproximar  /  /(x)  dx  usando  regla  compuesta  de  Simpson  con  n  =  4. 
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5.7 


Método  de  Romberg. 


El  método  de  Romberg  usa  la  regla  compuesta  del  trapecio  para  obtener  aproximaciones  preliminares  y  luego  el 
proceso  de  extrapolación  de  Richardson  para  mejorar  las  aproximaciones. 


5.7.1  Extrapolación  de  Richardson. 

Supongamos  que  queremos  estimar  I  y  que  podemos  expresar  I  como 

I  —  T(li)  +  a2h2  +  ÍZ4/!4  +  flg/i6  +  •  •  •  (5.7) 

En  este  caso  T(/i)  es  una  aproximación  de  I  y  a^h4  +  +  ■  ■  ■  es  el  error  de  la  estimación. 

Supongamos  además  que  T  solo  se  puede  evaluar  para  h  >  0  (sino,  el  error  sería  nulo  y  no  habría  nada  qué  hacer) 
por  lo  que  lo  único  que  podemos  hacer  es  tomar  valores  cada  vez  más  pequeños  de  h. 

Si  h  — >  0  entonces  las  potencias  li4,  h(\ ...  se  hacen  pequeñas  rápidamente  por  lo  que,  en  la  expresión  del  error 
CI4I14  +  +  ■  •  ■ ,  el  sumando  que  aporta  la  mayor  parte  del  error  es  ci^h4  (si  «4  7^  0).  En  un  primer  paso,  el  método 

de  Romberg  pretende  mejorar  la  estimación  de  L  eliminando  este  sumando.  Para  hacer  esto  procedemos  así:  En  la 
ecuación  (5.7)  sustituimos  h  por  h/ 2,  luego  podemos  eliminar  el  sumando  li2  multiplicando  está  última  expresión 
por  4  y  restando  la  expresión  (5.7): 

41  =  AT(h/2)  +  Aa2h2/22  +  4a4/¡4/24  +  Aa6h6/26  +  ■  ■  ■ 

—I  —  —T(h)  —  a2h2  —  a^h4  —  a^h 6  +  ■  ■  ■ 

Sumando  y  despejando  obtenemos 

I  =  ^T{h/ 2)  -  ir(ft)  -  aAh4/22  -  5a6h6/ 16  +  •  •  • 

4  1 

¿Cuál  es  la  ganancia?  I  ahora  se  aproxima  con  -T(h/2)  —  - T(h )  con  un  error  más  pequeño 
5a¿h6/l6  +  ■  ■ ■ . 


(5.8) 

-  a4h4/22  - 


Usando  la  notación  O— grande  diríamos  que  en  (5.7)  el  error  es  de  orden  0(h2)  (pues  h2  es  la  potencia  dominante) 
mientras  que  en  (5.8)  expresión  el  error  es  de  orden  0(h4). 

Ahora  aplicamos  el  mismo  procedimiento  a  I  —  T\(h)  —  b^h4  —  b¿h6  H - ,  con  T\(h)  — 4/3T’(/i/2)  —  1/3 T(h),  = 

«4/4,  b6  —  n6/23... 


Para  eliminar  b^h4  cambiamos  h  por  h/2  y  multiplicamos  por  16  y  restamos  la  ecuación  inicial 
161  =  16T1(/z/2)  -  16M4/24  -  16b6h6/6A  +  ■  ■  ■ 

—I  —  —Ti(h)  -  b4h4  -  b6h6  +  --- 


Sumando  y  despejando  obtenemos 
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J=^T1(ft/2)  -  ¿3i(ft)  -  b6h6/20  +  --- 
16  1 

Poniendo  T2(h)  =  —  Ti(/z/2)  —  —  T¡  (h),  entonces  podemos  decir  que  T2 (/z )  aproxima  I  con  un  error  de  orden 
0(h6). 

4  A:  ^ 

Siguiendo  este  procedimiento  obtenemos  f  =  ^ — -  Tk(h/2)  —  — -  7\ ( /z )  +  0(h2^+1'>)  en  el  paso  k—é simo.  Esto 

se  puede  simplificar  y  poner  como 


I  —  Tk(h/2)  +  Tk^h/^  Tk (/;)  +  0(h2^) 

4/C  _  1 


5.8 


Método  de  Romberg 


El  método  de  Romberg  es  una  aplicación  sistemática  de  esta  idea  de  obtener  una  aproximación  mejorada  a  partir  de 


—  a 


aproximaciones  anteriores,  iniciando  con  estimaciones  de  la  regla  del  Trapecio  para  hk  —  ^  |  ,  k  —  1,2,... 


—  [l  rb  ]i  í  n _ t  \ 

Sea  hk  =  l ,  I  —  J  f(x)  dx  y  T (li)  —  -  I  f{a)  +  f(b)  +  2  f(xi)  I  ■  Para  aplicar  el  proceso  de  extrapolación  de 

Richardson  necesitamos 


I  —  T(h)  +  a2h2  +  íz4/z4  +  íz6/z6  H - 1-  a2m_2h2m  2  +  a2mh2mf^2m^  (e) 


(5.9) 


Esto  es  cierto,  pero  para  justificarlo  necesitamos  la  fórmula  de  Euler-Maclaurin  ([1]),  así  que  aquí  vamos  a  asumir 
este  hecho. 

El  método  de  Romberg  construye  una  matriz  R  —  ( R/_()  en  la  que  todas  sus  columnas  convergen  a  I  (las  entradas 
son  sumas  de  Riemann)  pero  la  rapidez  de  convergencia  crece  de  una  columna  a  otra  y  esto  se  logra  usando  extrapo¬ 
lación  de  Richardson. 


Trapecio 

Extrapolación 

Extrapolación 

Ri,i 

R-2,1 

R-2,2 

R-3,1 

^3,2 

R3,3 

Rn,l 

Rn,2 

Rn,3 

Rn,á 

Rn,n 

i 

i 

i 

i 

i  i 

I 

I 

I 

I 

I  I 
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La  primera  columna  de  la  matriz  son  los  resultados  de  aplicar  regla  compuesta  del  trapecio:  Se  elige  h  —b 

h 

aplica  regla  del  trapecio  con  =  j¡._1 ,  k  —  1,2,... 


Vamos  a  calcular 


Ri,i 

R-2,1  R-2,2 


Cálculo  de  Ri  q  :  h\—h—{b  —  a), 


Ri,i  =  T(h)  =  ¡^\f(a)+f(b)\ 


Cálculo  de  1^2,1  :  h2  =  h/2  —  (b  —  a)/ 2, 


Extrapolación: 


21  — 1 


R2,i  =  T(h/ 2)  =  -I /(«)+/(&) +2  £/(*,) 


(■ b-a ) 


m+m+2f 


a  +  b 


R2/2  =  4/3T(7z/2)  -  1/3 T(h) 


4  (b  —  a) 


3  4 

b  —  a 


f{a)+m+2f 


a  +  b 


1  b  —  a 


3  2 


l m+m\ 


/(«)+/(*) +4/ 


a  +  b 


Recordemos  que  R2/2  —  R2¿  + 


La  notación  R/f  ¡  corresponde  a  la  aproximación  por  Trapecios. 


®  Ru  =  y  [/(«)  +/(&)]  =  b-^  [/(«)  +/(&)] 


—  «y  se 
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®  Rk,l  = 


Rk-1,1  +  J2  fia  +  (2¿  —  1)  '  h] 

i= 1 


,  k  —  2,3 ,...,«. 


Observe  que  R/Cj  es  un  fórmula  recursiva  para  la  regla  compuesta  del  trapecio. 


En  particular, 
b  —  a 


^1,1  — 

^2,1  = 


2 

(b-a) 


f(a)+f(b)+2f 


a  +  b 


^3,1  - 


^2,1  + 


a  +  b 


f 


/3 a  +  b\  ,  ,  /«  +  3í> 


V  4 


+  / 


Luego,  haciendo  hk+i  —  hk/2  podemos  obtener  nuevas  aproximaciones  Rkk  de  manera  recursiva  (usando  extrapo¬ 
lación),  de  la  siguiente  manera. 


Rk,j  —  Rk,j-1 


Rk,j- 1  “  Rk-l,j-l 

4 i-1  -  1 


En  particular,  si  en  la  expansión  (5.9)  cada  a,  ^  0,  entonces 

R(n,m)  =  1  +  0  ^2(n_1^(m_1)  ^ 

El  cálculo  se  hace  sencillo  si  formamos  la  matriz 


Ru 

^2,1 

Rl,2 

^3,1 

R?>,2 

R3,3 

^4,1 

Rá,2 

Rí,3 

Rí,4 

Rn,  1 

Rn,  2 

R>i,3 

Rh,4 

Observe  que  el  esquema  de  cálculo  es  similar  al  de  diferencias  divididas  de  Newton. 


5.8.1  Algoritmo  e  Implementación  en  VBA  Excel. 

Podemos  usar  Mín^  {Rn  k  —  Rn  k_¡  }  (el  mínimo  de  las  restas  de  cada  dos  columnas  consecutivas  en  la  fila  n)  como  un 
estimado  del  error  de  truncación  aunque  frecuentemente  éste  resulta  en  una  sobreestimación. 
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En  la  implementación  del  método  de  Romberg  podríamos  usar  como  criterio  de  parada:  calcular  la  fila  n  >  1  hasta 
que  Mín,  {R„  ^  —  Rn,k-l}  <  S  o  n  <  numlter.  Aquí  numlter  no  debería  ser  más  grande  que,  digamos  15.  Además  se 
debe  indicar  un  número  mínimo  de  iteraciones,  digamos  n  —  3.  Se  trata  de  una  heurística  para  evitar  la  finalización 
prematura  cuando  el  integrando  oscila  mucho. 


rn 

Aunque  sabemos  que  /  sen(x)  dx  —  2,  vamos  a  usar  esta  integral  para  ver  como  funciona  la  regla  de  Simpsor 

Jo 


Aproximar  J  sen(x)  dx  con  «=4yit  =  6y  estimar  el  error. 
Solución:  Calculamos  la  matriz  de  Romberg. 


1  0 

2  1.570796327  2.094395102 

3  1.896118898  2.004559755  1.998570732 

4  1.974231602  2.00026917  1.999983131  2.00000555 


Luego  J  sen  (x)  dx  r¡  2.000000016.  La  estimación  del  error  de  truncación  requiere  comparar  los  elementos  consecu¬ 
tivos  de  la  última  fila  y  escoger  el  menor 

I  Ra, i  -  Ri, 2 1  =  0.0260376  |  R4<2  -  R4,3 1  -  0.000286039  y  |  R4/2  -  R4,3 1  =  0.000286039. 

Así  que  la  estimación  del  error  en  la  truncación  es  de  ±0.000022419. 


5.9 


Cuadratura  Gaussiana. 


En  la  cuadratura  Gaussiana  (método  de  Gauss  para  aproximar  una 
integral),  en  vez  de  usar  una  partición  igualmente  espaciada  del 
intervalo  [a,  b  para  aproximar  la  integral  con  n  +  1  puntos,  se  escogen 
los  "mejores"  x§,x\,...xn  £  [a, b  ,  de  tal  manera  que  la  aproximación 
sea  exacta  al  menos,  para  polinomios  de  grado  menor  o  igual  a2«  +  l 
(recordemos  que  Trapecio  es  exacto  para  polinomios  de  grado  1  y 
Simpson  para  polinomios  de  grado  3). 

En  la  figura  5.9,  el  área  de  la  región  que  cubre  el  trapecio  relleno 
es  exactamente  el  área  de  la  región  entre  la  parábola  y  el  eje  X.  La 
aproximación  que  da  la  regla  del  Trapecio  (trapecio  punteado)  no  es 
exacta  en  este  caso. 


En  general,  se  trata  de  usar  el  método  de  coeficientes  indeterminados:  determinar  co,Ci,...,c„  y  XQ,X\,...,xn  £  [—1/1]  de 
tal  manera  que  las  integrales 


j  P2n+l(X)  dx  =  co/(*o)  +  cl/(*l)  +  ■■■  +  C„f(xn ) 
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son  exactas  para  cada  P2n+1  (x) ,  un  polinomio  de  grado  2 n  +  1,  n  =  0, 1,2, ... 

Debemos  resolver  el  sistema  (no  lineal)  con  n  +  1  +  n  +  1  =  2n  +  2  incógnitas. 


Cof{xo )  +  Cl/(xi)  +  ...  +  Cnf{xn) 

Cof(xo)  +Clf(xt)  +  ... +  Cnf(x„ ) 
<  : 

Co/(*o)  +Ci/(xi)  +  ...  +c„f(x„) 

Cof(xo)  +  Clf(xi)  +  ...  +  c„f(xn) 


1  dx 
x  dx 

x2n  dx 
x2n+1  dx 


i-i 


2, 

0, 


2 

2n  + 1 7 

0, 


/(*)  =  1 
f(x)  =  X 

f(x)  —  x2n 
f(x)  =  x2n+1 


En  la  tabla  que  sigue,  aparecen  la  solución  aproximada,  hasta  n  —  5. 


n 

Ci 

X; 

i 

Co  =  1 

*0  = 

-0.5773503 

Ci  =  1 

Xl  = 

-0.5773503 

2 

c0  =  0.5555555556 

= 

-0.7745966692 

cj  =  0.8888888889 

Xi  = 

0 

c2  =  0.5555555556 

*2  = 

0.7745966692 

3 

cq  =  0.3478548451 

*0  = 

-0.8611363116 

c  i  =  0.6521451549 

Xl  = 

-0.3399810436 

c2  =  0.6521451549 

*2  = 

0.3399810436 

c3  =  0.3478548451 

*3  = 

0.8611363116 

4 

c0  =  0.2369268850 

*0  = 

-0.9061798459 

C\  =  0.4786286705 

*1  = 

-0.5384693101 

c2  =  0.5688888889 

*2  = 

0 

c3  =  0.4786286705 

X3  = 

0.5384693101 

^  =  0.2369268850 

Xi  = 

0.9061798459 

5 

c0  =  0.1713245 

*0  = 

-0.932469514 

c  i  =  0.3607616 

Xl  = 

-0.661209386 

c2  =  0.4679139 

*2  = 

-0.238619186 

c3  =  0.4679139 

X3  = 

0.238619186 

c4  =  0.3607616 

Xi  = 

0.661209386 

c5  =  0.1713245 

*5  = 

0.932469514 

Tabla  5.1 


Una  tabla  más  extensa  se  puede  encontrar  en  Proyecto  Euclides. 

Se  puede  probar  que  XQ,X\,...xn  son  las  raíces  de  los  polinomios  de  Legendre, 


Pn+ 1  (x) 


( n  + 1)! 
(2«+2)! 


G[n+1)(x ) 


n  =  1,2,... 


con  G^"+1)(x)  la  derivada  n  +  1  de  Gn(x)  —  ( x 2  —  1)”+1. 


185 


Si  tenemos  las  raíces  (que  son  todas  reales),  los  c,'s  se  podrían  calcular  con  la  fórmula 
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Ci 


f1  A  (*  ~  */) 
-!  j=[^i  (*¿  -  XD 


dx 


(Cuadratura  Gaussiana). 


O  Para  calcular  en  un  intervalo  [a,b]  usando  cuadratura  Gausiana  hacemos  el  cambio  de  variable  x  — 


a  +  b  +  (b  —  a)u 


y  teniendo  en  cuenta  que  dx  —  — - —  du,  obtenemos 


1  b  —  a  í  a  +  b  +  (b  —  a)u 


j  du  =  C0g{x0)  +C1g(x1)  + ...  +  Cng(x„)  +  En 


b  -  a  ( a  +  b  +  (b  -  a)u 
donde,  por  supuesto,  g(u )  —  — — /  I  - - - 


9  Si  g  £  C2n  [—1, 1],  el  error  en  la  fórmula  de  cuadratura  Gaussiana  es  ([20]), 

_  22,l+1[(n)!]4  (2n)/r\  ?  _ 2  1  [ 

n  (2n  +  l)[(2n)!]3g  {C)  C  J  '  1 


Aproximar  J  sen(i')  dx  con  n  —  3  y  estimar  el  error. 

Solución: 


O  En  este  caso,  el  cambio  de  variable  es  x  —  ^  n  —  ^ =  n  +  nu  ,  —  1L 

2  2  1  2 


®  g(u) 


Tí 

—  sen 
2 


n  +  nu\ 
) 


cos(nu/2)du 


cog(xo)  +cig{x1)  +c2g(x2)  +c3g(x3) 
n/2  c0  eos  +  G  eos  +  C2  eos  ( 


7TX2 


+  c3  eos 


y  usando  la  tabla  de  valores, 
1.9999842284987... 
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Ejemplo  5.6  (continuación). 


La  estimación  del  error  es. 


pues  |¿p6'(m)|  = 


7T7COS 


|E3|  -  lál(6)(£)l  con  ?€]-l,l[. 


< 


7  •  (6!)a 
27  ■  (3!)4  ti7 
7-  (6!)3  '  128 


i  0.00149816 


(”) 


128 


<  en  ]  —  1,1[. 
—  128  J  1 


5.10 


Integrales  Impropias. 


rOO 

Las  integrales  impropias  (convergentes)  /  f(x')  dx,  (a  >  0)  y 

Ja 

cambio  de  variable. 


f(x)  dx,  (b  <  0);  se  pueden  calcular  usando  un 


Sifl>0yfr  =  ooosifr<0ya  =  —  oo  entonces. 


Como  1/a  o  1/b  es  cero,  /  I  I  se  indefine.  Así  que  no  podemos  considerar  métodos  de  integración  que  evalúen  los 


extremos  (como  Simpson  o  Trapecio)  sino  más  bien,  de  acuerdo  a  lo  que  tenemos  hasta  aquí,  cuadratura  Gaussiana. 
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5.17  Considere  la  integral  1  —  /  e~x  dx. 

Jo 

a)  Aproximar  la  integral  con  la  regla  del  Trapecio  para  n  —  4  y  estime  el  error  de  la  aproximación. 

b)  Estime  n  de  tal  manera  que,  usando  la  regla  del  Trapecio,  el  error  estimado  es  <  0.5  x  10  10.  Use  su  imple- 
mentación  en  Excel  para  calcular  la  aproximación  correspondiente  (de  I). 

c )  Aproximar  la  integral  con  la  regla  del  Simpson  para  ii=4y  estime  el  error  de  la  aproximación. 

d)  Estime  n  de  tal  manera  que,  usando  la  regla  del  Simpson,  el  error  estimado  sea  <  0.5  x  10  10.  Use  su  im- 
plementación  en  Excel  para  calcular  la  aproximación  correspondiente  (de  I). 
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e)  Aproximar  la  integral  con  el  método  de  Romberg  para  u=4y  estime  el  error  de  la  aproximación. 

f)  Use  su  implementación  del  método  de  Romberg  para  encontrar  experimentalmente,  usando  la  estimación 
del  error,  el  n  adecuado  para  el  que  el  error  estimado  sea  <  0.5  x  10  10. 

g)  Aproximar  la  integral  con  cuadratura  Gaussiana  para  n  —  4  y  estime  el  error  de  la  aproximación. 

h)  Estime  n  de  tal  manera  que,  usando  cuadratura  Gaussiana,  el  error  estimado  sea  <  0.5  x  10  10. 


Ayuda:  aquí  no  se  trata  de  hacer  un  despeje  de  n  (por  la  presencia  de  factoriales)  sino,  más  bien,  ensayar 


(tanteo)  con  valores  de  n  (en  la  fórmula  del  error)  hasta  lograr  el  objetivo.  Observe  que  g(u)  — 
Las  derivadas  de  g  tienen  un  patrón: 


=  i  „-(«+)/ 2 


1/00 1  -  ^"("+1)/2 
I/' 001  -  ^"(“+1)/2 
|/3)I00  =  ¿e_(lí+1)/2 
l/4)00l  -  ¡2e~(u+1)/2 


5.18  Se  conoce  que 


'0  y¡X 


dx  =  1.80904...  Aproxime  esta  integral  usando  n  —  4. 


5.19  Considere  las  integrales  de  Fresnel,  S(x)  =  /  sen (f2)df  y  Cx)  =  /  cos(f2)  dt.  Se  sabe  que  existe  un  valor 

Jo  Jo 

£  €  [1,2]  tal  que  S(f )  =  C(£).  Aproxime  este  valor  usando  el  método  de  la  secante. 


5.20  La  "función  error"  se  define  como  Erf(x)  =  — =  /  e  f  dt.  Aproximar  Erf(1.5)  usando  los  cuatro  métodos  de 

\J Tí  Jo 

integración  hasta  que  la  diferencia  en  cada  resultado  sea  <  0.5  x  10~5. 


5.21  De  una  función  /,  conocemos  la  siguiente  información 

/(*) 
3.592 
3.110 
3.017 
2.865 
2.658 


Tabla  5.2 

r0.8 

a)  Aproximar  /  f(x)  dx  usando  regla  del  Trapecio. 

Jo 


x 

0 

0.2 

0.4 

0.6 

0.8 
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5.22 

5.23 


r  0.8 

b)  Aproximar  /  f[x)  dx  usando  regla  del  Simpson. 

Jo 

r0.8 

c)  Aproximar  /  f(x)  dx  usando  Romberg  (interpolar  con  polinomios  de  grado  2). 
lo 

:  e~ *Z//2  dx  con  n—  6. 

?-x2/2  dx  con  n  —6. 


Aproxime 
Aproxime  J 


i  Vlñ 

5  J_ 

sjlñ 
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http://dl.dropbox.eom/u/57684129/revistamatematica/Libros/index.html 
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ECUACIONES  DIFERENCIALES 
ORDINARIAS 


Consideremos  el  problema  de  valor  inicial 

Jj;  =f(t,y(t)),  a<t  <b,  y  (a)  —  yo  (6.1) 

Buscamos  una  función  y  (t)  €  c1  [a,b\  que  satisfaga  la  identidad  (6.1).  Se  asume  que  f(t,  y)  está  definida  para  te  [ a,b } 
y  y  e  IR"1.  Por  supuesto,  en  este  texto  solo  estudiamos  el  caso  m  —  1. 

Existencia  y  unicidad.  En  teoría  de  ecuaciones  diferenciales  se  establece  el  siguiente  teorema. 


Teorema  6.1 


Si  f(t,y)  es  continua  en  í  £  [a,  b  y  respecto  a  y  satisface  la  condición  de  Lipschitz 

II f(t,y)  II  < U\y~y*\\,  te  [«,&],  y,  y*  e  ir, 

entonces  el  problema  de  valor  inicial  (6.1)  tiene  una  única  solución  y(f),  a  <  t  <b,  para  cualquier  yo  E  IR. 

Supongamos  que  tenemos  el  problema  de  valor  inicial 

~^=f(t,y),  ^<t<b,  y(a)  —  y0  (6.2) 

Si  tenemos  una  aproximación  (f¡,i/;)  de  (í,, r/(t¿)),  el  paso  siguiente  en  un  método  de  un  solo  paso  es 

2/i+i  =  Vi  +  h  ■  <í>( ti,yi;h ),  h>  0. 

La  función  <J>  se  puede  ver  como  el  incremento  aproximado  en  cada  paso  y  define  cada  método  de  un  solo  paso. 

Orden  del  método.  Para  definir  el  orden  del  método  necesitamos  definir  el  error  de  truncación.  Sea  u(t)  la  solución 
del  problema  6.2  pero  pasando  por  el  punto  (genérico)  (x,y),  es  decir,  u(t)  es  la  solución  del  problema  local 

x<t<x  +  h,  u(x)—y  (6.3) 

dx 

A  u{t)  se  le  llama  solución  de  referencia.  Si  y*  —  y  +  h<$>(x,y,h),  y*  aproxima  u{x  +  h)  con  un  error  de  truncación 
T{x,y,h )  =  ^(y*  -u(x  +  h)). 


Solución  numérica.  Desde  el  punto  de  vista  numérico  lo  que  nos 
interesa  encontrar  aproximaciones  yfl(f;)  a  los  valores  exactos 
y  (ti).  En  este  capítulo,  los  t¡  £  [a,b]  los  tomaremos  igualmente 
espaciados,  es  decir,  si  h  =  (b  —  a)/n,  ti  —  a  +  i  ■  h,  i  =  0,1 ,...,«. 

Si  uno  lo  prefiere,  puede  construir  una  tabla  de  aproximaciones 
{(tj/yn(ti)),  i  —  0,1, ...,n}  y  por  interpolación,  contruir  una 
solución  aproximada  y„(t),  t  £  [a,b]. 


► 

t 


Figura  6.1  Solución  numérica  de  un  problema  de  valor  inicial 


El  método  <E>  se  dice  de  orden  p  si  \T(x,y;h)  \  <  Chf  uniformenente  sobre  [a,b]  donde  la  constante  C  no  depende 
de  x,y  o  h.  Esta  propiedad  es  usual  escribirla  como 

T(x,y,h)  —  0(hp),  h 0, 

es  decir,  entre  más  grande  p,  más  exacto  es  el  método. 

A  continuación,  vamos  a  ver  algunos  métodos  de  un  solo  paso. 


6.1 


Método  de  Euler 


Euler  propuso  este  método  en  1768.  Consiste  en  seguir  la  tangente  en  cada  punto  (f¡,y¡).  Hacemos  una  partición  del 
intervalo  [a,b]  en  n  subintervalos  [f¿, f¿+ 1],  cada  uno  de  longitud  h  —  (b  —  a)/n.  Luego,  —  a  +  i  ■  h  —  t¡  +  h. 

Iniciando  con  (ío,yo)/  se  calcula  la  ecuación  de  la  tangente  en  (í„y¡) :  yr(t)  —  f(ti,yi)(t  —  +  y¡  y  se  evalúa  en 
t  —  tj+ 1  —  t{  +  h,  es  decir, 

y(fi+i)  ~yi+i  =yi  +  hf(tiryi),  i  =  0,l,...,n 


El  método  de  Euler  es  de  orden  p  —  1. 


Algoritmo  e  implementación  con  WXMAXIMA. 
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Figura  6.2  y(t¡)  ss  y¡  =  yi_x  +  7i/(f;_i,yj)- 


Figura  6.3  Tangentes  en  (ti, y  i),  i  =  0,1,  ...15. 


Consideremos  el  problema  de  valor  inicial  ^  =  0 .7y  —  t2  +  1,  t  €  [1,2],  y(l)  =  1 .  Aquí  a  —  1,  b  =  2.  Si  n  =  10 
entonces  h  —  0.1  y  t¡  —  a  +  hi  —  1  +  0.1  i 


V  o  =  1 

y¿+l  —  yi  +  h  (0.7  *  y¿  -  ti2  +  l)=y¡  +  0.1  (0.7y¿  -  (1  +  0.1  i)2  +  l) ,  i=l,...,n 


Tabla  6.1  y(t¡)  ss  y¿  =  yz-  j  +  ?! /(í,-i,y,),  ¿  =  1,2,. ..,10. 


i 

U 

Vi 

0 

1 

1 

i 

1.1 

1.07 

2 

1.2 

1.1239 

3 

1.3 

1.15857 

4 

1.4 

1.17067 

5 

1.5 

1.15662 

6 

1.6 

1.11258 

7 

1.7 

1.03446 

8 

1.8 

0.917877 

9 

1.9 

0.758128 

10 

2. 

0.550197 

En  el  algoritmo  se  usan  las  variables  íq,  yo  y  yi .  En  cada  ciclo  /y  y  3/0  se  actualizan  para  calcular  la  siguiente  aproxi¬ 
mación  yi  =  f(to,yo)  ■  h  +  yO.  Luego  se  incrementa  íq  y  se  actualiza  yo  =  y\. 
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Algoritmo  6.1:  Método  de  Euler 
Datos:  f(t,y),  a,  b,  yo,  n 

Salida:  Imprime  las  aproximaciones  ( ),  i  —  0,1,  ...,n 

1  h  =  (b  —  a)/n; 

2  t0  =  «; 

3  for  i  =  1  tofl  do 

4  yi  =yo  +  h-f(to,yo); 

5  to  =  a  +  i  ■  h; 

6  yo  —  3/i ; 

7  print((í0,i/o)); 


Implementación  en  wxMaxima,  En  esta  primera  implementación,  definimos  la  función  y  luego  la  llamamos 

en  el  programa  por  su  nombre  '  f ' . 


1  f  (t,y)  :=0.7*y-tA2+l;  /*j¡  =  f(t,y)  */ 

2  Euler (f , a, b, yOO, n) :=block([h: (b-a) /n*l . 0, yO :y00, yl, tO] , 

3  printfa," - ",y0*1.0), 

4  tO : a, 

5  for  i ; 1  thru  n  do  ( 

6  yl :y0+h*f (t0,y0) , 

7  /* Actualizamos  tO  y  yO*/ 

8  t0:a+i*h, 

9  yO :yl, 

10  printftO," - ",y0*1.0) 

11  ) 


13  /* Llamada  al  programa*/ 

14  Euler  (f ,  1, 2, 1, 10)  ; 


/*  Salida  */ 


1 - 1.0 

1.1  - 1.07 

1.2  - 1.1239 

1.3  -  1.158573 

1.4  -  1.17067311 

1.5  -  1.1566202277 

1.6  -  1.112583643639 

1.7  -  1.03446449869373 

1.8  -  0.91787701360229 

1.9  -  0.75812840455445 

2.0  -  0.55019739287326 
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Segunda  implementación  Esta  segunda  versión  tiene  fines  didácticos.  Se  acepta  la  expresión  '  fty'  sin  importar  el 
nombre  de  las  variables.  Si  las  variables  son  '  t '  y  '  y ' ,  en  ese  orden,debemos  hacer  la  sustitución  de  variables,  usando 
'  substitute'  y  luego  definir  la  función  '  f  (t,  y) '  .  Se  usa  el  paquete  '  draw2d'  para  desplegar  los  gráficos:  Una  lista 
con  los  puntos  y  la  solución  exacta  (explícita)  y  =  y(t)  de  la  ecuación  diferencial.  La  salida  esperada  del 

programa  será 


wxMaxima 

11.04.0 

[  Euler.wxm*  ] 

- 

File 

Edit  Cell 

Maxima 

Equations  Algebra 

Calculus 

Simplify  Plot  Numeric  Help 

m 

¿i 

< 

r  a 

O 

.  ^  b 

7  t 

31543104572  %e  10  -  10181487050  t2  -  29089963000  t  -  31375602950 

(%o56)  - 

7127040935 


1.1  .  1.07 

1.2  .  1.1239 

1.3  .  1.158573 

1.4  .  1.17067311 

1.5  .  1.1566202277 

1.6  .  1.112583643639 

1.7  .  1.03446449869373 

1.8  .  0.91787701360229 

1.9  .  0.75812840455445 

2.0  .  0.55019739287326 


(%o59) 


/ *Versión  para  uso  didáctico */ 

/ *Se  supone  que  la  EDO  tiene  solución  expl\ ' { \i } cita  y=y(t)*/ 
eq:[]diff  (y,t)  =  0 . 7*y-tA2+l; 
sol : ode2 (eq,  y,  t); 

yt :  rhs  (icl  (sol,  t=  1.0,  y=  1.0  ));/*Parte  derecha*/ 
load ( "draw" ) ; 

PlotEuler (fty, vari, var2, a, b, yOO, n) : =block ( 

[h : 1 . 0* (b-a) /n, yO : yOO, yl, tO, tiyi] , 

subst (t, vari, fty) , 

subst (y, var2, fty) , 

define (f (t,y) , fty) , 

tO :  a, 

tiyi  :  [  [tO,  yO]  ] ,  /*matriz  inicia  en  (tO,  yO)  */ 

for  i :  1  thru  n  do  ( 
yl :yO+h*f (tO,yO) , 
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/* Actualizar  tO  y  yO  */ 
tO :a+i*h, 
yO :yl, 

/*agregar  nuevo  punto*/ 
tiyi : append (tiyi, [ [ 1 0 , y 0 ] ] ) , 

print  (tO,  " - " ,  y 0 ) 

), 

/ *gráfico */ 
wxdraw2d ( 

explicit  (yt,  t,  a, b) , 
color=red,  point_size=l, 
point_type=filled_circle, 
points  (tiyi) 

/*, yrange= [O, 8 ],  xrange= [-1, 5] */ 


/ *Llamada */ 

PlotEuler (0 . 7*y-t A2+l, t, y, 1,2,1,10) ; 


Si  la  ecuación  diferencial  tiene  solución  implícita  entonces  se  debe  cambiar  el  código  en  la  parte  del  cálculo  de  la 

solución  de  la  ecuación  diferencial  y  el  gráfico,  porque  se  debe  graficar  ahora  una  solución  implícita.  Por  ejemplo, 

dx/  \P~  —  3 

la  ecuación  diferencial  —  t /y  con  y  (2)  =  —1  tiene  solución  implícita  h-  =  — - — .  Habría  que  hacer  el  siguiente 

ajuste. 


/*Solución  y(t)*/ 
eq:[]diff  (y,  t)  =  f  (t ,  y) , 
sol : ode2 (eq,  y,  t) , 

yt : id  (sol,  t=  a,y=  yOO) , /*Tomamos  toda  la  expresión*/ 

print  (" -  " ,  yt )  , 

/ *gráfico*/ 
wxdraw2d ( 

implicit  (yt,  t,  0,b,y, -3, 3) ,  /  *yt  es  una  expresióm  impl\ '  { \i  }  cita*/ 

color=red,  point_size=l,  point_type=filled_circle, points (tiyi) , 
yrange= [-4, 4] ,  xrange=[0,5] 


/ *Llamada */ 

PlotEuler (t/y,t,y,2,3,-l,10) ; 


Por  supuesto,  este  programa  sirve  también  para  el  caso  explícito. 
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6.3 


Métodos  de  Taylor  de  orden  superior. 


El  método  de  Euler  opera  con  un  polinomio  de  Taylor  de  orden  uno  (rectas).  Es  natural,  como  propuso  Euler,  usar 
más  términos  e  la  expansión  de  Taylor  (si  /  es  suficientemente  derivable).  Usando  una  expansión  de  orden  m  nos 
lleva  a  un  método  de  orden  0(hm).  El  costo  de  calcular  las  derivadas  en  estos  tiempos  se  le  delega  a  los  computa¬ 
dores,  lo  que  hace  que  el  método  (todavía  de  un  solo  paso),  sea  una  opción  viable. 

En  este  método,  calculamos  el  polinomio  de  Taylor  alrededor  de  f  =  f;  (en  potencias  de  t  —  t¡)  y  evaluamos  este 
polinomio  en  t¡+\  —  +  h.  Nos  queda  un  polinomio  en  potencias  de  h, 


¡.2  i.m  .  i.m+ 1 

y(t¡+ 1)  —  y (h  +  ti)  —  y (U)  +  hy'(t¡)  +  — y" (ti )  + ...  +  —¡y^m  (t¡)  +  _|_ \ ^2/ m+1  (£¿)'  con  &  e]f¿'  +  M- 


Como  y’ (t)  =  f(t,y),  las  derivadas  sucesivas  se  pueden  calcular  usando  regla  de  la  cadena  (en  dos  variables). 


r  y(°)(t)  -  ñ(t,y)=f(t,y), 

1  y[k+1)(t)  =  f[k+1](t,y)=  ff\t,y)f(t,y),  k  =  0,l,2,...,m. 


Entonces,  sacando  h  a  factor. 


y(ti+i)  ~y;+i  =yi  +  h 


f[0](ti,yi)  +  2^  (ti, y  i)  +  +  3 jf^(ti,yi) 


\m—\ 


m\ 


-flm~1](ti,yi 


,  i  =  Orl,...,n.  (6.4) 


.  o  p 

Consideremos  el  problema  de  valor  inicial  -jj  =  0.7y  —  t  +  1,  t  £  [1,2J, 
y(t)  =  1.42857Í2  +  4.08163Í  -  4.42583ea7t  +  4.40233. 


y(l)  =  1.  La  solución  exacta  es 


Vamos  a  aplicar  el  método  de  Taylor  de  orden  m  —  4  con  n  —  10.  Tenemos  a  —  1,  b  —  2,  h  —  0.1  y  t¡  —  1  +  0.1  i. 
Ahora  debemos  calcular  las  derivadas. 
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Ejemplo  6.2  (continuación). 


/[0]  (f,y)  -  0.7y  —  í2  +  1, 

/[1](by)  -  — 2í  +  0.7(0.7y  —  f2  +  1), 

f[2]{t,y)  =  -2-2-0.71í  +  0.72(0.7y-í2  +  l)/ 
/[3](f,y)  =  —2  •  0.71  —  2  •  0.72í  +  0.73(0.7y  —  f2  + 1). 


=  1 


=  y  i  +  h 


/[0](^y¿)  +  ^/ll]  (í/,y/)  +  ^7[2](í¿,y¿)  +  ^-/[3](h,y0 


/l()|  (to,yo)  +  (fo/yo)  +  “jjr/12'  (^yo)  +  (to,yo) 


Así,  yi—y  o  +  0.1 
En  la  tabla  se  continúa  el  cálculo  hasta  j/iq. 


,  i  —  0,1, 


=  1.06193158375. 


ti 

Método  de  Taylor 
de  orden  4 

Vi 

Valor  exacto 

y(t/) 

1.0 

1.0 

1.0 

1.1 

1.06193158375 

1.061931432036279 

1.2 

1.105577521330614 

1.105577223160223 

1.3 

1.127540292137498 

1.127539827069448 

1.4 

1.124176027574661 

1.124175372973675 

1.5 

1.091576648813122 

1.091575779638891 

1.6 

1.025550709391196 

1.025549597968614 

1.7 

0.92160284874683 

0.92160146451555 

1.8 

0.77491175596324 

0.77491006520478 

1.9 

0.58030653570613 

0.58030450124654 

2.0 

0.33224136049833 

0.33223894138437 

Y  A 


6.4 


Algoritmo  e  implementación  con  WXMAXIMA. 


Para  el  algoritmo  vamos  a  reescribir  la  relación  6.4  como  y!+i 


y  i  +  TH  {ti, y  í)  donde. 


rW(t/y)=ft/[0](tI,yf)  +  ^/[2](tf/yi) 


m! 


/[m-1](íúy¿). 
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En  el  algoritmo  se  usan  las  variables  fg,  yg  y  y\ .  En  cada  ciclo  ¿o  y  yg  se  actualizan  para  calcular  la  siguiente  aproxi¬ 
mación  yi  =  T^k]  (fg,yg).  Luego  se  incrementa  fg  y  se  actualiza  yg  =  y\. 


Algoritmo  6.2:  Método  de  Taylor  de  orden  m 
Datos:  /(f,y),  m,  a,  b,  yg,  n 

Salida:  Imprime  las  aproximaciones  (f¡,y;),  i  —  0,  \ 

1  h  —  (b  —  a)/n; 

2  t0=a; 

3  for  i  —  1  ton  do 

4  1/1  =yO  +  LH(£0,y0); 

5  t0  —  a  +  i-h ; 

6  yo  =  3/i ; 

7  print((í0,y0)); 


Implementación  en  wxMaxima.  En  esta  primera  implementación,  definimos  la  función  /(f,y)  y  luego  la  llamamos 
en  el  programa  por  su  nombre  '  f ' .  Por  supuesto,  la  derivadas  parciales  se  calculan  con  fk :  f  (t,  y)  y  fk :  diff  (fk,  t ) 
+  diff ( fk, y ) *f (t, y) , 


1  f  (t,y)  :=0.7*y-tA2  +  l;  /*íjj  =f(t,y)*/ 

2  ODETaylor (f , orden, a, b, yOO, n) :=block( 

3  [h:  (b-a) /n*l . 0,  tO,  yO : yOO, yl, fk, Tk] , 

4  tO : a, 

5  Tk:h*f (t,y) , 


6 

fk: f (t, y) , 

/*  Salida 

*/ 

7 

/ ^Polinomio  xM(f,y)  */ 

1.1  - 

1.06193158375 

8 

for  k:2  thru  orden  do  ( 

1.2  - 

1.105577521330614 

9 

fk :  dif f  (fk,  t)  +  diff  (fk,  y)  *f  (t,  y) , 

1.3  - 

1.127540292137498 

10 

Tk : Tk  +  hAk/factorial (k) *fk 

i. 4  - 

1.124176027574661 

11 

), 

1.5  - 

1.091576648813122 

12 

/*Cálculo  de  y_{i+l}*/ 

1.6  - 

1.025550709391196 

13 

for  i:l  thru  n  do  ( 

1.7  - 

0.92160284874683 

14 

yl : yO+ev (Tk, t=t0, y=yO) , 

1.8  - 

0.77491175596324 

15 

tO : a+i*h, 

1.9  - 

0.58030653570613 

16 

yO :yl, 

2.0  - 

0.33224136049833 

17 

print  ("{",t0, ",  ",  yO, " } " ) 

18 

19 


) 


20  f  (t,y)  :  =0 . 7*y-tA2  +  l; 

21  ODETaylor  (f, 4,1,2,1,10); 


Para  agregar  el  gráfico  en  el  programa,  para  propósitos  didácticos,  debemos  agregar  cada  nuevo  punto  (tO,  yO)  en 

una  matriz.  Aquí  calculamos  la  solución  exacta  yt  de  la  ecuación  diferencial  (si  hubiera)  y  usamos  implicit  (yt,t,a,b,y,-3,3) 

para  graficar.  Se  imprime  los  valores  exactos  y(t¿).  En  vez  de  -3,  3  se  podría  usar  mín {i//}  —  1,  máx{y¿}  +  1], 


1  /* Programa  con  propósitos  didácticos*/ 

2  / *Se  asume  que  la  solución  de  la  EDO  es  expl\ ' { \i } cita  y=y(t) 

3  f  (t ,  y )  :=0.7*y-tA2+l;  /*^—f(t,y)*/ 

4  ODETaylor (f , orden, a, b, yOO, n) :=block( 

5  [h:  (b-a) /n*l .0,  tO,  yO : yOO, yl, fk, Tk, tiyi] , 

6 

7  t0:a, 

8  tiyi: [ [ t 0 , yO ] ] , 

9  Tk:h*f  (t,y) , 

10  fk:  f  (t,  y) , 

11  / *Polinomio  de  T^(t,y)*/ 

12  for  k:2  thru  orden  do  ( 

13  fk :  diff  (fk,  t)  +  diff  (fk,y)  *f  (t ,  y ) , 

14  Tk:Tk  +  hAk/factorial (k) *fk 

15  )  , 

16  /*Cálculo  de  y_{i+l}*/ 

17  for  i:l  thru  n  do  ( 


18 

yl : yO+ev (Tk, t=t0, y=yO) , 

19 

tO : a+i*h, 

20 

yO :yl, 

21 

tiyi : append (tiyi, [ [ 1 0 , y 0 ] ] ) , 

22 

print  (tiyi [i+1] 

, " - ",  ev 

23 

), 

24 

25 

/ *Solución  y(t)*/ 

26 

eqi^diff  (y,  t )  = 

f  (t,y) , 

27 

sol:ode2(eq,  y, 

t) , 

28 

yt :  icl  (sol,  t=  a. 

,y=  yOO) , 

29 

print  ( " - 

\yt), 

30  / *gráfico*/ 

31  wxdraw2d( 

32  implicit  (yt,  t,  a, b,  y, -3,  3) , 

33  color=red,  point_size=l,  point_type=filled_circle, points (tiyi) , 

34  yrange= [-4, 4] ,  xrange  [0,5] 

35  ) 

36  )  ; 

37 

38  f  (t,  y)  :  =0 . 7*y-tA2+l; 

39  ODETaylor  (f, 4, 1,3, 1,10); 


200  ECUACIONES  DIFERENCIALES  ORDINARIAS 


6.5  Métodos  de  Runge-Kutta. 


Como  decíamos,  los  métodos  de  un  solo  paso  tienen  la  forma 

yi+l=yi+h-®(ti,yi)h),  h  >  0. 


En  el  método  de  Euler  la  función  incremento  es 


Para  el  método  de  Taylor  de  orden  2  es. 


®(ti,yuh)  =  f{t¡, y  i) 


h 


®{ti,yoh)  = f(ti,yi )  +  y  [MUrVi)  +fy{ti,yi)f(ti,yi)] 


(6.5) 


Los  métodos  de  Runge-Kutta  son  métodos  diseñados  pensando  en  imitar  las  expansiones  de  Taylor  pero  usando  solo 
evaluaciones  de  la  función  f(t,y).  En  el  caso  del  método  de  Runge-Kutta  de  orden  2,  se  trata  de  modificar  el  método 
de  Euler  escribiendo 


<í>(ti,yi}h )  =  +a2k2, 


(6.6) 


con  k\  —  f{t,y)  y  k2  —  f  (t  +  cch,  y -\- f>hk\) ,  es  decir,  no  se  va  a  evaluar  en  la  tangente  hasta  t¡+h  sino  antes,  usando 
la  pendiente  de  la  tangente  en  (f  +  ah,  y  +  fhk\). 

Expandiendo  6.5  y  6.6  en  potencias  de  li  (usando  la  fórmula  de  Taylor  en  dos  variables)  y  comparando  se  obtiene, 
entre  varias  opciones,  a  =  1,  f  =  1,  ci\  =  ci2  —  1/2.  Esto  nos  da  un  método  Runge-Kutta  de  orden  2, 

h 

y¡+ 1  =  y  i  +  2  +/(íí  +  y  ¡  +  k/(f;,y¡))] 

El  método  clásico  de  Runge-Kutta  de  orden  4  tiene  una  función  de  incremento  que  coincide  con  el  polinomio  de 
Taylor  hasta  el  sumando  con  el  término  if.  Este  método  se  puede  escribir  como, 

yo  =  y  (a). 


donde 


Vi+i  —  y  i  +  g  {k\  +  2k2  +  2k^  +  kf),  i  —  0,1,2,... 


h 

h  =  ^{tuytl 
ki  —  +  2'  V’  ^  ) ' 


k?,  —  2  /  +  2'  ^  ) ' 


- 


2/ (*¿  +  y  í  +  2^3)/ 
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6.6 


Algoritmo  e  implementación  con  WXMAXIMA. 


Algoritmo  6.3:  Método  de  Runge-Kutta  de  orden  4 
Datos:  /(f,y),  m,  a,  b,  yo,  n 

Salida:  Imprime  las  aproximaciones  (f¡,y¡),  i  —  0,1, 

1  h  =  (b  —  a)/n; 

2  t0  =  a; 

3  for  i  —  1  ton  do 

h 

4  fci  =  2  fvi'yi)’ 

5  k2  —  -f  (ti  +  -,  y  i  +  k^j  ; 

6  ^3  —  2_f  +  2 '  +  ^2)  ' 

7  k^  —  - f  (t¡  +  h,  y {  +  2k$) ; 


8  3/1  —  Vi  +  g(^i  +  2^2  +2%  +  fc4); 

9  t0  —  a  +  i-h ; 

ío  3/o  =  3/1 ; 

íi  print((í0/yo)); 


Implementación  en  wxMaxima. 

1  f(t,y)  :=0.7*y-tA2+l;  /*^=/(í,y)*/ 

2  RungeKutta (f , a, b, yOO, n) : =  block ( 

3  [h:  (b-a) /n*l .0,  tO:  a,  y0:y00,  yl,  kl, k2, k3, k4 ] , 

4 

5  print(t_i,  "  -  ",  y_i,  "  y (t _ i)  "), 

6  printftO,  "  -  ",  yO,  " - ",  yO), 

7  / *  Cálculo  de  los  y_{i+l}*/ 

8  ... 

s  )  ; 

10 

11  f  (t, y)  :=  tA2-yA2; 

12  RungeKutta  (f,  0, 2, 1, 10)  ; 


EJERCICIOS 

6.1  Considere  el  problema  de  valor  inicial  y’  —  cos(2í)  +  sen(3f),  t  G  [0,1],  y(0)  —  1. 

a)  Usando  el  método  de  Euler,  aproximar  y(0.4)  con  h  =  0.1  . 

b)  Usando  el  método  de  Taylor  de  orden  4,  aproximar  y(0.4)  con  h  —  0.2 
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c)  Usando  el  método  de  Runge-Kutta  de  orden  4,  aproximar  y(0.4)  con  h  —  0.2 

6.2  Considere  el  problema  de  valor  inicial  y'  =  íExp(3í)  —  40y,  t  G  [1,2],  y(l)  =  10. 

a)  Usando  el  método  de  Euler,  aproximar  y (0.4)  con  h  —  0.1  . 

b)  Usando  el  método  de  Taylor  de  orden  4,  aproximar  y(0.4)  con  h  —  0.2 

c)  Usando  el  método  de  Runge-Kutta  de  orden  4,  aproximar  y(0.4)  con  h  —  0.2 

rt  2 

6.3  Usando  el  método  de  Runge-Kutta  de  orden  4,  aproximar  y(0.2)  (con  h  —  0.1)  si  y(í)  =  /  e~ 1  dt.  (Debe  con¬ 
vertir  el  cálculo  de  la  integral  en  un  problema  de  valor  inicial.) 


6.7 


Algunos  Detalles  Teóricos. 


Definición  6.1 


Consideremos  un  conjunto  D  C  ]R2  y  una  función  f(t,y)  definida  en  D .  Si  existe  una  constante  L  >  0  tal  que 

~f{Uyi)\ <L|yi-y2|,  V(f,yi),(í,y2)  eD 

se  dice  que  f(t,y )  cumple  una  condición  de  Lipschitz  en  la  variable  y  en  D .  A  L  se  le  llama  constante  de  Lipschitz 
para  / . 


Nota:  Una  condición  suficiente  para  que  /(í,y)  cumpla  una  condición  de  Lipschitz  en  D  es  que  exista  L  >  0  tal  que 

dMy) 
dy 


<  L,  V (f,y)  G  D 


Definición  6.2 


Un  conjunto  DCE  se  dice  convexo  si  V  (fi,yi),  (í2,y2)  €  D,  el  segmento  {  (1  —  A)  (íi,yi )  +  A(f2,y2),  A  G  [0,1]} 
está  contenido  en  D . 


Convexo 


Nota:  Observe  que,  cuando  A  =  0  estamos  en  el  punto  inicial  (t\,y  \ )  y  cuando  A  =  1  estamos  en  el  punto  final 
(t2 ,y2)  •  A  =  1/2  corresponde  al  punto  medio  del  segmento. 
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Teorema  6.2 


Si  D  —  { (í,y )  :  a  <t  <b,  —  oo<y<oo}  y  si  /(f,y)  es  continua  en  D  y  satisface  una  condición  de  Lipschitz  respecto 
a  y  en  D,  entonces  el  problema  (*)  tiene  una  solución  única  y(f)  para  a  <  t  <b. 


Nota:  Un  problema  de  valor  inicial  está  bien  planteado  si  pequeños  cambios  o  perturbaciones  en  el  planteo  del  prob¬ 
lema  (debido  a  errores  de  redondeo  en  el  problema  inicial,  por  ejemplo),  ocasiona  cambios  pequeños  en  la  solución 
del  problema.  Si  un  problema  cumple  las  hipótesis  del  teorema  anterior,  entonces  está  bien  planteado. 


Consideremos  el  problema  de  valor  inicial  y'  =  y  -  f  +  1,  t  e  [0,4], 
{ (í,y)  :  0  <  t  <  4,  —oo  <  y  <  oo} ,  entonces  como 


y (0)  =  0.5.  Aquí  f(t,y)  —  y  —  f2  +  1 .  Si  D  = 


dy 


1 


V  (f,y)  e  D 


/  cumple  una  condición  de  Lipschitz  en  y  (en  este  caso  podemos  tomar  L  =  1).  Además,  como  f(t,y)  es  con¬ 
tinua  en  D ,  el  problema  de  valor  inicial  tiene  una  solución  única.  De  hecho  la  única  solución  es  y  ( f )  —  ( f  +  1 ) 2  -  0.5ef 


6.8 


Estimación  del  error 


Teorema  6.3 


Si  D  —  {(t, y)  :  a  <t  <b,  —  oo<y<oo}  y  si  f{t,y)  es  continua  en  D  y  satisface  una  condición  de  Lipschitz  respecto 
a  y  en  D  con  constante  L  entonces  si  existe  una  constante  M  tal  que 


\y"(t)\  <M,  Vf  <E  [a,b] 


entonces  para  cada  i  —  0,1,2 ,...,n. 


|y(*i)-y¿l  < 


hM 

2T 


a)  _ 
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Nota:  para  calcular  \y"{t)\  usamos  regla  de  la  cadena:  y" (t) 


dMy)  +  dl(t,y)  .  >{t) 

.  Posiblemente  sea  difícil 

dt  dy 


obtener  M  dado  que  puede  ser  necesaria  información  acerca  de  y(t) . 


Teorema  6.4  (Teorema  de  Taylor). 


Sea  h  >  0  y  /  una  función  tal  que  /  y  sus  primeras  k  derivadas  son  continuas  en  el  intervalo  [a, a  +  h\  y  la  derivada 
fl(  l  1  existe  en  \a,a  +  h[,  entonces  existe  un  número  J  ,  en  el  intervalo  ]a,a  +  h[  tal  que 


f{a  +  h)=  f{a)  +  h  +  h2  +  ■  ■  ■  +  hk  + 


1! 


2! 


k\ 


/(t+1)(g),t+i 

(*  +  !)! 
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Apéndice  A 

Programación  con  LibreOffice  Basic  (=OOoBasic). 


En  este  apéndice  nos  ocupamos  de  los  constructores  básicos  del  lenguaje  OpenOffice.org  Basic  (OOo  Basic)  o  de  Li¬ 
breOffice  Cale,  que  es  básicamente  lo  mismo.  Luego  consideramos  las  funciones  y  las  subrutinas  con  el  propósito  de 
empezar  a  construir  lina  biblioteca  con  funciones  y  subrutinas  de  uso  frecuente  en  la  implementación  de  algoritmos 
en  métodos  numéricos. 

OpenOffice.org  3.x  (http://es.openoffice.org/)  es  una  suite  ofimática  (procesador  de  textos,  hoja  de  cálculo,  pre¬ 
sentaciones,  etc.)  libre,  disponible  para  varias  plataformas,  tales  como  Microsoft  Windows,  GNU /Linux,  BSD,  Solaris 
y  Mac  OS  X. 


Figura  A.l  Inicio  de  OpenOffice.org 
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En  lo  que  nos  concierne,  vamos  a  usar  el  lenguaje  de  programación  OOo  Basic  y  la  hoja  electrónica  OOo  Cale.  OOo 
Basic  es  una  abreviación  de  "OpenOffice.org  Basic".  Cale  es  una  hoja  de  cálculo  si-milar  a  Excel  y  la  programación 
de  macros  es  muy  similar  a  VBA  para  Excel.  No  se  puede  decir,  en  realidad,  si  es  más  sencillo  usar  VBA  u  OOo  Basic; 
ambos  hacen  las  cosas  sencillas,  pero  a  su  manera. 


Archivo  Editar  \¿er 

Insertar  Formato  Herramientas  D, 

i-syii 

a  a  a  tsg  **  % 

:  |§3  Anal 

-  10  -  N  C  ! 

TOL  a 

=0,5*10A(-15)  1  156250000  1.10 

_  1 .171 B75000  1 1 ,10 

1,171075000  1,17 
1,175781250  i  1 ,17 
1,175781250  1,1 
1  17S7R1?Snll  1 


Archivo  Editar  Ver  Herramientas  Ventana  Ayuda 
:  | [Función esMatem aticas.odsj.FuncionesMat  ▼  ^  0 

f  =  Cells ("B3") .getString () 

Cali  Bisección (f, a, b,tol) 

End  Sub 

'Constantes 

Global  Const  PI_  As  Double  =  3 .14159265358Í 
Global  Const  E_  as  Double  =  2 .71828182845Í 

Function  Root(ByVal  a  As  Double,  ByVal  n 
Dim  m  as  Integer 

m  =  Int  (n)  'Indice  entero 

On  Error  Goto  msgError  'Manejo  de  erroi 
If  m  Mod  2=0  Then  'Errores  posible 

Root  =  a  A  (1  /  m)  'subradical  negé 

Figo 

Observador: 


Figura  A.2  OOo  Cale 


VBA  y  OOo  Basic  son  lenguajes  de  programación  de  la  familia  "Basic".  Como  tal,  comparten  los  mismos  construc¬ 
tores  lingüísticos  básicos,  por  ejemplo,  declaración  de  variables,  ciclos  (For,  Do,  While,  Do  While,  Do  Until,...),  condi¬ 
cionales,  operadores  lógicos,  funciones,  etc.  La  diferencia  está  en  el  API,  es  decir,  la  manera  de  comunicarse  con  los 
documentos  de  OpenOffice.org.  y  el  modelo  de  objetos  de  cada  uno.  Por  tanto,  si  alguien  ya  está  familiarizado  con 
algún  lenguaje  de  de  la  familia  Basic  (por  ejemplo,  VBA),  se  sentirá  cómodo  con  OOo  Basic. 

Este  capítulo  está  orientado  a  estudiar  las  construcciones  necesarias  para  programar  algoritmos  en  matemática  e  in¬ 
geniería,  que  se  puedan  usar  en  conjunto  con  OOo  Cale.  La  programación  de  este  capítulo  está  orientada  a  construir 
una  biblioteca  con  subrutinas  y  funciones  de  propósito  general  y  de  uso  frecuente  en  la  programación  de  algoritmos 
en  métodos  numéricos  y  otras  ramas. 


A.l 


Preliminares:  Macros,  funciones  y  subrutinas. 


Una  "macro"  es  una  una  colección  ordenada  de  instrucciones  o  comandos.  Las  macros  son  programas,  están  consti¬ 
tuidas  por  constantes,  variables,  instrucciones,  subrutinas  y  funciones.  Las  subrutinas  y  funciones  son  programas  y 
son  un  caso  particular  de  macros. 


A.l  .1  Editar  y  ejecutar  una  macro. 

Lo  primero  que  hay  que  aprender  (y  recordar)  es  que  las  macros  se  guardan  en  módulos,  estos  a  su  vez  se  guardan  y 
organizan  en  bibliotecas,  las  cuales,  están  contenidas  dentro  de  documentos  (cuadernos  OOoCalc).  Hay  una  biblioteca 
default  llamada  "Standard".  Por  ahora  vamos  a  poner  nuestras  macros  en  un  módulo  en  esta  biblioteca  Standard. 

Sesión  de  programación  en  OOoCalc,  con  OOo  Basic,  Los  pasos  generales  para  hacer  nuestro  primer  programa  son: 
Preparamos  la  hoja  OOoCalc,  abrimos  el  entorno  de  programación,  implementamos  el  programa  (macro)  y  luego 
ejecutamos  (y  depurar  si  es  el  caso). 
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Nuestro  primer  programa  es  muy  sencillo:  Una  macro  que  despliega  una  ventana  con  el  mensaje  "Hola ! " 


618  *  /*  Ü  =  [ 


Figura  A.3  Primer  programa:  Una  macro  que  despliega  una  ventana  con  el  mensaje  "Hola  !  "  . 


Pasos  para  implementar  y  ejecutar  el  programa. 

a)  Abrimos  un  libro  OOoCalc  y  los  guardamos,  digamos  como  "Leerlmprimir".  Así,  tendremos  un  archivo  Leerlmprimir .  ods 
(el  cual  puede  abrir  en  Windows,  Linux  o  Mac!). 

b)  Ahora  vamos  a  crear  un  módulo  llamado  "Modulel"  (su  nombre  default)  para  editar  subrutinas  y  funciones. 

Para  esto  vamos  a 


Herramientas>Macros>Organizar  macros>OpenOffice . org  Basic 

y  en  la  ventana  Macros  básicas,  (1)  seleccionamos  nuestra  hoja  Leerlmprimir,  (2)  hacemos  clic  en  '  Nuevo'  y  (3) 
hacemos  clic  en  Aceptar.  Esto  nos  llevará  al  "Entorno  de  Desarrollo  Integrado"  (IDE  por  sus  siglas  en  inglés) 
de  OOo  Basic.  La  manera  directa  de  hacer  esto  es  presionar  Alt-Fll-  [Nuevo  o  Editar] ). 


a 


Figura  A.4  Crear  Módulo 

c)  En  el  IDE  de  OOo  Basic  aparece  la  subrutina  default  "Main".  Nuestro  primer  programa  es  muy  simple:  En¬ 
viamos  un  mensaje  Hola!  usando  el  comando  MsgBox.  Cuando  entramos  al  IDE  encontramos  una  subrutina 
vacía 


Sub  Main 

End  Sub 


Agregamos  el  código  con  el  mensaje  (el  apóstrofo  "  ' "  se  usa  para  poner  comentarios). 


Programa  1  Utilizando  la  subrutina  Main  para  levantar  una  ventana  con  un  mensaje  (figura  A.5). 
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Sub  Main 

'MsgBox  "Mensaje",  #=tipo  de  ventana,  "título  de  la  ventana" 
MsgBox  "Hola!"  ,  64, "Primer  programa" 

End  Sub 


Figura  A.5  IDE  de  OOo  Basic.  Subratina  Main  con  un  mensaje 


d)  Para  ejecutar  la  subrutina  Main  podemos  usar  el  botón  de  ejecución  (ver  figura  A.5)  o,  desde  el  cuaderno,  usar 
la  combinación  de  teclas  Alt-Fll  seleccionar  y  presionar  el  botón  de  Ejecutar . 


Macros  básicas  de  OpenOffice.org 

Nombre  de  la  rnacro 
Main 

Macro  desde 

3  ¿D  Mis  macros 
3  lD  MacrnsdeOpenOffice.org 
b  íé  Leerlmprimir.ods 
El  [gl  Standard 


Figura  A.6  Ejecutar  la  subrutina  con  Ctrl-Fl  1 

Bibliotecas  y  módulos.  Los  módulos  se  deben  poner  en  bi-bliotecas.  La  biblioteca  default  es  la  biblioteca  Standard.  En 
la  figura  A.6  se  observe  que  el  módulo  1  quedó  en  esta  biblioteca.  Más  adelante  volveremos  sobre  este  tema. 


Edición  Los  comentarios  inician  con  REM  o  con  un  apóstrofo  recto  ( ' ).  El  compilador  no  es  sensitivo  a  las  mayúsculas 
y  minúsculas,  es  decir,  es  lo  mismo  escribir  Maxlteraciones  que  maxlteraciones  . 

Ventanas  de  mensaje,  Hay  varios  tipos  de  ventanas  de  mensaje.  En  el  siguiente  código  se  muestra  cuatro  opciones. 


Programa  2  Tipos  de  ventanas  de  mensaje 

Sub  Main 
MsgBox  "  " 

MsgBox  "  " 


16,  "Icono  Stop" 

32,  "Icono  pregunta 


'Mensaje  vacío 
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MsgBox  "  ",  48,  "Icono  exclamación 
MsgBox  "  ",  64,  "Icono  información 
End  Sub 


Figura  A.7  Iconos  para  MsgBox  (mensaje  vacío) 


A.1.2  Subrutinas  y  funciones. 

Una  subrutina  es  una  colección  de  instrucciones  (es  un  caso  especial  de  macro).  Podemos  usar  una  subrutina  para 
incluir  las  instrucciones  para  leer  una  valor  de  una  celda  e  imprimir  en  otra  celda.  Una  función  es  una  macro  que 
devuelve  (generalmente)  un  valor.  Podemos  usar  una  función  para  implementar  las  funciones  usuales  en  matemática. 

Cuando  ejecutamos  una  subrutina,  se  ejecutan  las  instrucciones  que  contiene.  En  OOo  Basic  hay  una  subrutina  de- 
fault,  la  subrutina  Main . 


Sub  Main 

End  Sub 

Esta  es  la  primera  subrutina  que  se  ejecuta.  En  principio,  como  no  tiene  instrucciones,  no  pasa  nada. 
La  estructura  de  una  función  es  (lo  que  está  entre  "[  ]"  es  opcional). 


Function  NombreFuncion ( [argumentos] ) 
Variables 
instrucciones 
[  Exit  Function] 
instrucciones 

NombreFuncion=  lo  que  retorna  la  función 
End  Function 


La  línea  opcional  Exit  Function  se  usa  en  el  caso  de  que,  por  alguna  razón,  queramos  detener  el  cálculo  y  salir  de  la 
función 

La  estructura  de  una  subrutina  es  (lo  que  está  entre  "[  ]"  es  opcional). 


210 


PROGRAMACIÓN  CON  LIBREOFFICE  BASIC  (=OOOBASIC). 


Sub  NombreSubrutina ( [argumentos] ) 
Variables 
instrucciones 
[  Exit  Sub] 
instrucciones 
End  Sub 


La  línea  opcional  Exit  Sub  se  usa  en  el  caso  de  que,  por  alguna  razón,  queramos  terminar  ahí  la  subrutina. 

Funciones  matemáticas.  Las  funciones  matemáticas  se  implementan  de  manera  natural.  Considere  f(x)  =  x3  +  x  +  1 
y  S(X'V)  ~  i/*2  +  y2-  La  función  /  tiene  un  argumento  y  la  función  g  tiene  dos  argumentos. 


Programa  3  Implemetación  de  las  funciones  f(x )  =  x3  +  x  +  1  y  g(x,y )  =  sj x1  +  y2. 

1  Function  F (x) 

2  F  =  x*2+x+l 

3  End  Function 

4 

5  Function  G(x,y) 

6  G  =  Sqr (x^2+y^2 ) 

7  End  Function 


En  la  línea  6 .  se  usa  la  función  Basic  Sqr  para  la  raíz  cuadrada. 

Usar  una  función  en  una  hoja.  Una  vez  definida  la  función  en  un  módulo  de  la  biblioteca  Standard,  ya  es  accesible  en 
el  cuaderno  actual  y  se  pueden  usar  en  las  fórmulas.  Solo  un  detalle:  En  el  cuaderno  los  argumentos  se  separan  con 
punto  y  coma  mientras  que  en  el  ambiente  OOo  Basic  se  usa  la  coma  corriente. 


i  ® 

Book  Antiqua  10  ▼  NC”S  - 

1 

'  y&  X  ^  |  =F(5)+G(bl) 

o 

A 

B 

C 

D 

=F(5)+G(1;1) 

Figura  A.8  Usando  una  funciones  en  el  cuaderno  OOoCalc 


A.1.3  Variables. 

Las  variables  contienen  valores  que  pueden  cambiar  en  la  ejecución  de  una  macro.  Aunque  OOo  Basic  no  nos  obliga 
a  declarar  variables,  en  la  práctica  es  mejor  hacerlo. 

Los  nombre  de  las  variables  inician  con  una  letra  (A— Z  o  a— z).  Se  pueden  usar  números  (0—9)  y  el  guión  bajo  (_) 
pero  no  al  principio. 

"Option  Explicit" .  Es  bueno  declarar  las  variables  y  también  es  muy  práctico  agregar  la  instrucción  "Option  Explicit" 
para  detectar  nombres  que  no  corresponden  a  alguna  variable.  Esto  va  a  ahorrar  mucho  tiempo  a  la  hora  de  buscar 
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errores  en  nuestro  código. 

Dim,  Para  declarar  una  variable  se  usa  la  palabra  reservada  "Dim"  y  se  puede  agregar  el  tipo  Integer  para  enteros  y 
Long  para  enteros  grandes,  Double  para  números  en  doble  precisión,  String  para  cadenas  de  caracteres,  Boolean  para 
variables  que  toman  los  valores  verdadero  o  false,  etc. 

Variables  tipo  Variant,  Sino  se  declara  el  tipo,  se  asume  que  es  tipo  "Variant"  y  todo  se  acomoda  al  tipo  de  dato.  No 
siempre  es  bueno  usar  el  default  "Variant"  porque  a  veces  no  es  claro,  después  de  algunas  asignaciones,  en  que  tipo 
de  dato  se  va  a  convertir  este  "Variant". 


Variable  tipo  Integer,  Las  variables  tipo  Integer  se  inicializan  en  0  y  soportan  valores  entre  —32768  y  32767. 
Variable  tipo  Long,  Las  variables  tipo  Long  se  inicializan  en  0  y  soportan  valores  entre  —2147483648  y  2147483647. 


Variable  tipo  Double.  Las  variables  tipo  Double  se  inicializan  en  0,0  y  soportan  números  positivos  y  negativos  entre 
±1,79769313486232  x  10308  y  ±4,94065645841247  x  10~324. 

Los  computadores  comunes  representan  los  números  reales  en  este  rango  con  un  número  aproximado.  El  error  rela¬ 
tivo  entre  el  número  real  x  y  su  aproximación  x  en  el  computador,  es  menor  o  igual  que  0.5  X  10~15.  Los  números 
positivos  inferiores  a  4.94065645841247  x  1 0  -  324  se  tratan  como  0. 


El  computador  representa  los  números  Double  con  a  lo  sumo  15  o  16  dígitos  significativos. 

Representación 


Número  real 

en  el  computador 

Ci 

=  299792458112345699 

2,99792458112346E+017 

C2  —  C\  16 

=  299792458112345715 

2,99792458112346E+017 

20! 

=  243290200817664 

2,43290200817664E+018 

21! 

=  5109094217170944 

5,10909421717094E+019 

Los  números  C\,  C2  tienen  más  de  15  dígitos  significativos,  en  la  suma  real  difieren  pero  la  suma  en  el  computador 
resulta  igual.  Hay  que  tomar  en  cuenta  que  en  una  aproximación,  16  es  porcentualmente  despreciable  respecto  al 
número  299792458112345699.  Por  otra  parte,  20!  se  puede  representar  de  manera  exacta  (como  un  Double)  pero  21! 
(16  dígitos)  se  representa  aproximadamente. 


Como  decíamos  más  arriba,  si  la  representación  del  número  real  x  es  x,  entonces 


<  0.5  x  10~15 


Programa  4  Declaración  de  variables  y  algunos  cálculos. 

1  Option  Explicit 

2  Sub  Prueba  () 


3 

Dim 

a,  b 

'a 

y  b  son  de 

tipo  Variant 

4 

Dim 

qi 

As 

Integer 

'q 

es  de 

tipo 

entero 

5 

Dim 

q2 

As 

Double 

’q 

es  de 

tipo 

Double 

6 
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/  'Las  variables  se  pueden  inicializar  en  una 

8  'sola  línea  si  las  separamos  con 

9  a  =  5665555737832145  :  b  =  a+20 

10  MsgBox  b  ' ->  5,  66555573783216E+015 

11  ql  =  a/b  'División  real 

12  MsgBox  ql  '  ->  1 

13  q2  =  a\b  'División  Entera:  ->  Error 

u  End  Sub 


El  cálculo  en  la  línea  11 ql=a/b  devuelve  1  pues  por  la  precisión  que  maneja  el  computador  (15  o  16  dígitos),  a=b+20 . 

El  cálculo  en  la  línea  13 q2=a\b  provoca  un  error  en  tiempo  de  corrida:  La  división  entera  espera  dividir  dos  enteros 
y  retornar  un  entero,  si  a  y  b  no  son  enteros,  deben  ser  truncados  para  convertirlos  en  enteros,  pero  en  el  ejemplo 
estos  números  están  fuera  del  rango  de  los  enteros.  Se  despliega  una  venta  de  error  con  el  mensaje  "Tipo  de  datos 
o  valor  inadmisible.  Desbordamiento." 


Cadenas  de  caracteres  (String).  En  el  manejo  de  texto  es  necesario  conocer  algunas  operaciones  sobre  cadenas  de 
caracteres  ( (String).)  Los  espacios  en  blanco  cuentan  como  caracteres. 


9  Declaración  de  variables:  Dimtxt  As  String 
9  Pasar  un  número  x  a  String:  Str  (x) 

9  Concatenar:  txt  =  Str(x)&  "  es  real"  o  también  Str  (x)  +  "  es  real". 

9  Accesar  partes  de  un  String: 

(a)  Leftftxt,  n)  muestra  los  primeros  n  caracteres  de  txt. 

(b)  Right  (txt,  n)  devuelve  los  últimos  n  caracteres  de  txt. 

(c)  Mid  (txt,  m,  n)  devuelve  los  primeros  n  caracteres  de  txt  desde  la  posición  m. 

(d)  Len  (txt)  devuelve  el  número  de  caracteres  de  txt. 

(e)  Trim  (txt)  elimina  espacios  iniciales  y  finales.  Trim  ( "  Hola!  ")  ->  "Hola!". 


Programa  5  Ejemplo  para  mostrar  el  uso  de  algunos  métodos  en  cadenas  de  caracteres. 

1  Sub  Texto  () 

2  Dim  txt  As  String 

3  Dim  rt  As  String 

4  Dim  Ig  As  Integer 

5 

6  txt 

7  rt 

8  rt 

9  rt 

10  Ig 

11 

12  'Mid  con  cuatro  argumentos  pasa  a  ser  instrucción,  es  decir, 

13  'modifica  la  tira  txt  pero  no  devuelve  algo. 


=  "Texto  de  prueba" 

=  Left  (txt,  6)  ' rt  ->  "Texto  ",  con  un  blanco  al  final. 

=  Right  (txt,  5)  '  rt  ->  "rueba",  sin  blancos. 

=  Mid  (txt,  8,  5)  '  rt  ->  "e  pru". 

=  Len  (txt)  ’lg  ->  15. 
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u  'La  siguiente  instrucción  modifica  txt,  cambia  "  de  "  por  . 

15  Mid  (txt,  6,  4,  "=")  'Ahora  txt  =  "Texto=prueba" 

16 

17  End  Sub 


9  Buscar  y  reemplazar:  La  instrucción  InStr  (Poslnicial,  txt,  txtBuscado)  devuelve  una  número  con  la  posi¬ 
ción  en  la  que  se  encontró  la  primera  aparición,  desde  la  posición  Poslnicial,  de  la  subcadena  txtBuscado  en  la 
cadena  txt .  Este  comando  ignora  mayúsculas  y  minúsculas.  También  se  puede  usar  Mid  con  cuatro  argumentos 
como  se  muestra  en  el  ejemplo. 

Programa  6  Uso  de  InStr. 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


Sub  Posición  () 

Dim  txt  As  String 

Dim  i  As  Integer 

txt  =  "Texto  de  prueba" 

i  =  inStr(l,txt,  "  de  ")  '  ->  i=6,  pues  "  de  "  inicia  en  un  blanco. 

Mid  (txt,  6,  4,  "=")  'Ahora  txt  =  "Texto=prueba" 

MsgBox  inStr ( 1 ,  txt ,  "  de  ")  ' ->  i=0 

End  Sub 


Ámbito  de  las  variables,  Las  variables  locales  son  las  que  se  declararan  dentro  del  cuerpo  de  una  subrutina  o  función 
y  se  crean  al  invocar  ésta  y  se  destruyen  al  finalizar.  Si  estas  variables  se  declaran  Static  (en  vez  de  Dim)  entonces 
conservan  el  último  valor  que  tuvieron,  entre  llamada  y  llamada  (siempre  y  cuando  no  cambie  la  macro  que  llama  a 
la  macro  que  la  contiene).  En  el  siguiente  código  se  muestra  la  misma  función  pero  con  los  dos  tipos  de  variable. 


Sub  Main 
MsgBox  Dsucesor(l) 
MsgBox  Dsucesor(l) 
MsgBox  Dsucesor(l) 


' Imprime  1 
' Imprime  1 
' Imprime  1 


MsgBox  Stsucesor(l)  'Imprime  1 
MsgBox  Stsucesor(l)  'Imprime  2 
MsgBox  Stsucesor(l)  'Imprime  3 
End  Sub 


Function  Dsucesor(n  As  Integer)  As  Integer 
Dim  el_sucesor  As  Integer 
el_sucesor  =  el_sucesor+n 
Dsucesor  =  el_sucesor 
End  Function 


Function  Stsucesor(n  As  Integer) 
Static  el_sucesor  As  Integer 


As  Integer 
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el_sucesor  =  el_sucesor+n 
Stsucesor  =  el_sucesor 
End  Function 


Las  variables  globales  de  dominio  público  de  un  módulo  se  declaran  al  inicio  del  módulo  y  son  visibles  para  todos  los 
módulos  de  la  biblioteca.  Se  pueden  usar  y  modificar  en  las  subrutinas  y  funciones.  No  conserva  su  último  valor. 


Option  Explicit 
Dim  ValorGeneral  As  Integer 

Sub  Main 
End  Sub 


Las  variables  globales  son  las  mismas  que  las  variables  de  dominio  público  excepto  que  mantienen  su  último  valor 
aunque  se  termine  la  macro  que  la  utilizó.  Se  declaran  al  inicio  del  módulo  y  son  visibles  para  todos  los  módulos  del 
Cuaderno  Cale.  Se  pueden  usar  y  modificar  en  las  subrutinas  y  funciones. 


Option  Explicit 

Global  ValorG  As  Integer  'ValG  es  global  y  conserva  su  último  valor 

Sub  Main 
End  Sub 


A.1.4  Constantes 

Para  declarar  una  constante,  usamos  la  palabra  clave  Const  de  la  siguiente  manera. 


Const  PI  As  Double  =  3.14159265358979 
Const  E  As  Double  =  2.71828182845905 


Para  que  las  constantes  sean  visibles  para  todos  los  módulos  usamos  Global  (por  ser  constantes  no  se  pueden  modi¬ 
ficar). 


' PI_  y  E_  son  visibles  para  todos  los  módulos  de  este  cuaderno 
Global  Const  PI  As  Double  =  3.14159265358979 
Global  Const  E  As  Double  =  2.71828182845905 


Constantes  para  OOoCalc.  Las  constantes  definidas  en  OOo  Basic  se  pueden  usar  en  la  hoja  OOo  Cale  si  se  im- 
plementan  como  una  función,  digamos  en  la  biblioteca  Standard.  7i  ya  tiene  una  implementación,  la  base  e  de  los 
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logaritmos  naturales  se  implementa  así. 

Programa  7  Constante  e  y  función  E_  ( ) 

1  Global  Const  E  As  Double  = 

2  'tí  para  la  hoja:  Ya  está  definida  como  P X ( ) 

3  Functíon  E_()  'Constante  e  para  la  hoja.  La  función  debe  tener 

4  E_=2 .71828182845905  'un  nombre  diferente  al  de  la  constante. 

5  End  Functíon 


Ahora  podemos  evaluar  en  la  hoja  fórmulas  con  esta  función,  por  ejemplo  "  =2  *  E_  ( )  A  2 " . 

Nota  En  OOo  Basic  se  usa  E  para  escribir  números  en  notación  científica,  pero  esto  no  presenta  problemas  con  la 
constante  E .  Por  ejemplo  OOo  Basic  entiende  0 . 1E+2  como  10  y  entiende  0 . 1E+2+E  como  12 . 71828182  .  .  . 


A.1.5  Operadores 

Como  es  usual,  las  operaciones  aritméticas  son  +,  *  y  A  para  los  exponentes.  El  operador  "  +  "  también  se  usa  para 

concatenar  cadenas  de  caracteres.  En  las  tablas  (??)  y  (??)  se  muestra  una  lista  de  operadores  y  funciones  de  uso  fre¬ 
cuente. 


Operador 

Significado 

Ejemplo 

Mod 

Resto  de  la  división  entera. 

-5  mod  3  ->  -2 

\ 

División  entera 

2 \ 3  =0  y  7 \ 4  =1. 

& 

Concatenación  de  cadenas 

"xi  ="  &  "g  (xi) "  ->  "xi=g  (xi) " 

<  = 

< 

>  = 

> 

O 

7“ 

4  mod  3  <>  0  ->  true 

Not 

Operador  lógico ->  (negación). 

AND 

Operador  lógico  "y" 

OR 

Operador  lógico  "o" 

XOR 

Operador  lógico  "ó" 

True  XOR  True  =  False, True  XOR  False 

=  True 

ABS (x) 

El  valor  absoluto  de  un  número 

Abs  (-2)  ->  2 

CLng (x) 

Redondea  al  Long  más  cercano. 

Fix (x) 

Trucar  la  parte  decimal. 

Int (x) 

Parte  entera  (entero  de  la  izquierda). 

Int (3.99)=  3,  Int (-0.47)=  -1. 

CInt (x) 

Redondea  al  entero  más  cercano. 

CInt (3 . 99) =  4,  CInt(-0.47)=  0 

Str (x) 

Convierte  en  String 

Str  (2.45)  ->"2.45" 

CDbl (x) 

Convierte  a  Double 

CDbl  ("3,  2")  +3  ->  6,2;  CDbl  ("0,  45E3") 

->  450 

Val (x) 

Convierte  en  Double 

Val  ("3.2")  +3  ->  6,2;  Val ("0 . 45E2") 

->  450 

Rnd  ( ) 

número  aleatorio  entre  0  y  1 

2*rnd()  -  1  ->  número  aleatorio  en  | 

>1,1] 

SGN(x) 

signo 

sgn(-5.5)  ->  -1,  sgn(0)->  0 

SQR(x) 

V* 

Log (x) 

El  logaritmo  natural  de  un  número. 

Exp (x) 

ex 

SIN (x) 

sen(x) 

COS (x) 

cos(x) 

TAN (x) 

tan(x) 

ATN(x) 

Arcotangente 

atan(x)  e]  —  tc/2,tí/2[ 
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Notas.  Según  las  reglas  de  conversión  implícitas,  "3, 2" +3  pasa  a  ser  la  cadena  "3,23"  mientras  que  CDbl  ( "3, 2" )  +3 
pasa  a  ser  el  número  6,2.  Hay  que  tener  en  cuenta  que  CDbl  respeta  la  configuración  regional  de  idioma  y  reconoce 
la  coma  como  separador  decimal,  esto  significa  que  en  español  ignora  el  punto:  CDbl  ( "  3 . 2 " )  +3  ->35.  En  cambio  Val 
reconoce  el  punto  como  se-parador  decimal  pero  devuelve  el  resultado  de  acuerdo  a  la  configuración  regional,  por 
ejemplo  Val  ("3. 2") +3  ->6, 2;  Val  ("0 . 1E2")  ->  10  pero  Val  ("0, 1E2" )  ->  100. 


A.1.6  Ciclos. 

En  métodos  numéricos  es  muy  frecuente  acumular  sumas  o  productos  y  manejar  esquemas  iterativos  que  requieren 
repetir  algunos  cálculos  hasta  que  se  cumpla  alguna  condición,  esto  se  hace  con  estructuras  de  código  que  manejan 
ciclos. 

Ciclo  For  Este  ciclo  repite  un  bloque  de  instrucciones  un  número  determinado  de  veces.  La  sintaxis  general  es  (lo  que 
está  entre  "[  ]"  es  opcional). 


For  contador  =  inicio  To  fin  [  Step  ValordeSalto  ] 
instrucciones . . . 

[  Exit  For  ] 

Next  [contador] 


Acumular  sumandos.  Vamos  a  implementar  una  función  ElSumatorio  (ini,  n)  para  calcular  el  sumatorio 

i  l/2‘. 

z— ini 


Este  ejemplo  muestra  una  idea  muy  usada  para  acumular  sumandos.  Para  calcular  el  sumatorio  X^Lini  1  /2(  procede¬ 
mos  de  manera  natural.  Usamos  una  variable  suma  con  valor  inicial  cero  y  acumulamos  cada  nuevo  sumando,  uno 


por  uno. 

suma  =  0, 

¿  =  0, 

suma  =  suma 

+  1/2° 

=  0  +  1 

=  1, 

i  mi, 

suma  =  suma 

+  1/21 

=  1  +  1/2 

=  3/2, 

i  =  2, 

suma  =  suma 

+  1/22 

=  3/2 +  1/4 

=  7/4, 

Programa  8  Un  ejemplo  de  cómo  acumular  sumandos:  Un  sumatorio 

1  Function  ElSumatorio  (ini,  n) 

2  Dim  i,  suma 

3  suma=0 

4  For  1=  ini  To  n 

5  suma  =  suma  +  1/2* i 

6  Next  i 

7  ElSumatorio  =  suma 

8  End  Function 
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Acumular  factores.  Para  mostrar  la  manera  de  acumular  factores  en  un  producto  vamos  a  implementar  la  función 
factorial  (n)  .  Recordemos  que  n\  —  2  •  3  •  •  •  (n  —  1)  •  n. 

Procedemos  de  manera  natural.  Usamos  una  variable  producto  con  valor  inicial  1,  acumulamos  cada  nuevo  factor, 
uno  por  uno. 


producto 

=  1, 

=  2, 

producto 

=  producto*2 = 1  *  2 

=  2 

=  3, 

producto 

—  producto*3  =  2  *  3 

=  6 

=  4, 

producto 

=  producto*4  =  6  *  4 

=  24 

Programa  9  Un  ejemplo  de  cómo  acumular  factores:  La  función  factorial. 

Function  Factorial  (n)  '  1<  n  <  170.  Valores  exactos  hasta  n  =  20. 
Dim  i,  producto 
producto=l 
For  i=  2  To  n 

producto  =  producto *i 
Next  i 

Factorial  =  producto 
End  Function 


Podemos  usar  la  misma  idea  del  programa  anterior  para  implementar  una  función  CoefBinomial  (s,  n)  .  Recordemos 
que  si  s  G  IR  y  n  e  N,  =  1  y  =  s  y  en  general, 

/s  \  _  s(s  —  1) (s  —  2) . . .  (s  —  n  + 1) 

\n)  n\ 


Procedemos  de  manera  natural.  Usamos  una  variable  producto  con  valor  inicial  1,  acumulamos  cada  nuevo  factor, 
uno  por  uno.  El  código  es. 


Programa  10  Coeñciente  binomial  (*). 

Function  CoefBinomial  (s, n) 

Dim  i,  producto 

producto=l 
If  n>0  Then 
For  i=  0  To  n-1 

producto  =  producto* (s-i) / (i+1) 

Next  i 
End  If 

CoefBinomial  =  producto 
End  Function 
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Ciclo  Do... Loop,  Este  ciclo  viene  en  diferentes  sabores.  Se  utiliza  para  hacer  la  ejecución  de  un  bloque  de  código  mien¬ 
tras  o  hasta  que  una  condición  se  cumpla.  El  uso  más  común  es  verificar  la  veracidad  de  la  condición  antes  de  ejecutar 
el  código.  El  código  se  ejecuta  repetidamente  mientras  la  condición  sea  true.  Si  la  condición  es  falsa,  el  código  nunca 
se  ejecuta.  La  sintaxis  general  es  (lo  que  está  entre  "[  ]"  es  opcional). 


Do  While  condición 
instrucciones . . . 
[  Exit  Do] 
instrucciones . . . 
Loop 


En  otra  forma  del  ciclo  Do .  . .  Loop,  el  código  se  ejecuta  repetidamente  mientras  la  condición  es  falsa.  En  otros  pal¬ 
abras,  el  código  se  ejecuta  hasta  que  la  condición  se  convierte  en  verdad.  Si  la  condición  se  evahía  como  verdadera  al 
inicio,  el  ciclo  nunca  se  ejecuta.  La  sintaxis  general  es  (lo  que  está  entre  "[  ]"  es  opcional). 


Do  Until  condición 
instrucciones . . . 
[  Exit  Do] 
instrucciones . . . 
Loop 


Se  puede  colocar  el  control  al  final  del  ciclo,  en  cuyo  caso  el  bloque  de  código  se  ejecuta  al  menos  una  vez.  En  este  caso, 
el  bucle  se  ejecuta  al  menos  una  vez  y  luego  se  ejecuta  varias  veces  mientras  la  condición  sea  verdadera.  La  sintaxis 
general  es  (lo  que  está  entre  "[  ]"  es  opcional). 


Do 

instrucciones . . . 

[  Exit  Do] 
instrucciones . . . 
Loop  While  condición 


Para  ejecutar  el  ciclo  al  menos  una  vez  y  luego  continuar  mientras  la  condición  sea  falsa,  utilice  el  siguiente  construc¬ 
tor  (lo  que  está  entre  "[  ]"  es  opcional). 


Do 

instrucciones . . . 

[  Exit  Do] 
instrucciones . . . 
Loop  Until  condición 
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Ciclo  While  Wend.  Este  ciclo  se  usa  cuando  se  quiere  repetir  un  bloque  de  código  mientras  una  condición  es  true. 
Este  ciclo  no  ofrece  beneficios  adicionales  al  ciclo  Do. .  .Loop,  por  ejemplo  no  hay  un  "Exit  While".  La  sintaxis  gen¬ 
eral  es 


Números  aleatorios  en  un  círculo.  Para  obtener  pares  (x,y)  aleatoria¬ 
mente  distribuidos  en  un  círculo  de  radio  1  se  generan  dos  números 
aleatorios  x,  y  entre  —1  y  1.  Este  par  estará  en  un  cuadrado  de 
lado  2  centrado  en  el  origen.  Este  círculo  tiene  área  tí  mientras  que 
el  cuadrado  tiene  área  4.  Si  generamos  un  par  {x,y)  aleatorio  con 
— 1  <  x,y  <  i,  la  probabilidad  de  que  este  par  quede  dentro  del  círculo 
es  7i/4.  Los  pares  (x,y)  en  el  círculo  de  radio  1  tienen  la  propiedad 
x2  +y2<  1. 

Como  rnd()  genera  un  número  aleatorio  entre  0  y  1,  entonces  —1  <  2*rnd()-l  <  1.  El  par  aleatorio  lo  generamos 
con  x  =  2*rnd()-lyy  =  2  *rnd  ()  -1 .  Esto  lo  hacemos  mientras  que  x2  +  y2  >  1  (el  programa  que  sigue  usa  arreg¬ 
los,  una  exposición  más  amplia  de  los  arreglo  se  puede  ver  en  A.5.5). 


Programa  11  Generar  pares  (x,y)  aleatoriamente  distribuidos  en  un  círculo  de  radio  1 

Sub  Main 
Dim  p ( ) 

p  =  xyCAleatorio  ()  '  generamos  el  par  aleatorio  en  el  círculo 
MsgBox  Str  (p  (0)  )  +"  "+Str  (p  (1)  ) 

End  Sub 

Function  xyCAleatorio ( ) 

Dim  x,y 
Dim  par ( ) 

par  =  Array  (0,  0)  '  inicializamos  el  par 

Do  'ciclo  se  ejecuta  de  nuevo  solo  si  (x,y)  queda  fuera  del  círculo 
x  =  2 *rnd ( ) -1 
y  =  2 *rnd ( ) -1 
Loop  While  Sqr  (xy'2+yy'2)  >1 
par(0)=  x  'p(O)  es  la  componente  x 
par(l)=  y  'p(l)  es  la  componente  y 
xyCAleatorio=par ( ) 

End  Function 


El  número  esperado  de  veces  que  se  ejecuta  el  ciclo  Do  es  4/zr  w  1.27  veces! 

N 

Números  armónicos.  Los  números  armónicos  son  los  números  Hp  —  ^  1  / n.  En  análisis  matemático  se  establece 

n= 1 

que  Hp  «  I n  ( N )  +  0.57721  para  N  grande  (ver  [32]).  El  siguiente  programa  calcula  el  N— é simo  número  armónico 
usando  un  ciclo  Do .  .  .  Loop  Until, 


N 

Programa  12  Números  armónicos  Hp  =  y")  1  /  i 

i= 1 
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Function  NHarmonico (N) 
Dim  i  As  Long 
Dim  suma  As  Double 
suma=0  :  i=l 
Do 

suma  =  suma+  1/i 
i  =  i+1 

Loop  Until  i  >  N 
NHarmonico  =  suma 
End  Function 


|=NHARM0NIC0(I2) 


1 

K 

N 

Hn 

Ln(N)  +0,57721 

10 

2,9289682539682500 

I  2,8797950929940500 
5,1823801859880900 

100 

5,1873775176396200 

10000 

9,7876060360443500 

9,7875503719761800 

100000 

12,0901461298633000 

12,0901354649702000 

1000000 

14,3927267228650000 

14,3927205579643000 

Figura  A.9  Comparando  H[v  con  ln(N)  +  0.57721 


A.1.7  Condicionales. 

La  condición  I  f  es  usado  para  ejecutar  un  bloque  de  código  de  acuerdo  a  si  se  cumple  o  no  una  condición.  La  forma 
más  sencilla  de  esta  instrucción  es 


If  condición  Then 

instrucciones . . . 

End  If 


La  condición  puede  ser  cualquier  expresión  que  se  evalúa  con  true  o  false.  La  sintaxis  general  es  (lo  que  está  entre 
"[  ]"  es  opcional). 


If  condiciónl  Then 

instrucciones . . . 
[Else  If  condición2  Then] 
instrucciones . . . 

[Else] 

instrucciones . . . 

End  If 
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Si  la  primera  condición  que  se  evalúa  es  true,  se  ejecuta  el  primer  bloque  de  código.  Se  pueden  usar  varias  declara¬ 
ciones  del  tipo  Elself  para  probar  otras  condiciones.  La  declaración  El  se  se  ejecuta  si  ninguna  de  las  otras  condi¬ 
ciones  se  evalúa  como  true. 

Una  función  a  trozos.  Vamos  a  implementar  la  función 

Íflln(jc)  si  x  >  0, 

cos(a/x)  +  sen(«/x)  +  ex  si  x  <  0, 

0  si  r=0. 

No  podemos  usar  T  (a,  x)  pues  T  ya  está  reservado  para  una  función  que  trabaja  con  texto.  Para  no  tener  problemas, 
cambiamos  el  nombre  a  f  T.  El  código  podría  ser. 


Programa  13  Función  T  (a,  x) 


Function  fT(a,x) 

Dim  Tax 
If  x>0  Then 

Tax=Log  (x) 

Else  If  x<0  Then 

Tax=cos (a/x) +sin (a/x) +Exp (x) 

Else 

Tax=0 


End  If 


fT=  Tax 
End  Function 


A.2 


Leer  e  imprimir  en  una  celda. 


En  lo  que  nos  concierne,  lo  primero  que  tenemos  que  aprender  es  cómo  leer  datos  numéricos  de  las  celdas  y  como 
imprimir  datos  numéricos  en  una  o  varias  celdas.  Para  leer  datos  de  una  celda  se  debe  indicar  la  hoja  que  vamos  a 
usar,  para  esto  usamos  el  objeto  ThisCoraponent  que  designa  el  documento  desde  donde  vamos  a  llamar  la  macro  que 
editamos.  La  hoja  1  corresponde  a  la  hoja  0. 

Leer  o  imprimir  en  la  celda  usando  el  nombre.  Para  leer  o  imprimir  el  valor  numérico  almacenado  en  una  celda  us¬ 
ando  el  nombre  de  la  celda,  se  usa  el  método  getCellRangeByName  y  la  propiedad  Valué. 


Programa  14  Leer  x  en  "A4"  e  imprimir  f(x)  en  "B4",  desde  la  subrutina  Main. 

Sub  Main 
Dim  Hoja,  x 

Hoja  =  ThisComponent . Sheets  (0)  'Hoja  0 

x  =  Hoja  .  getCellRangeByName  (  "A4  ")  .Valué'  Lee  el  valor  numérico  en  "A4" 

'y  lo  almacena  en  x. 

Hoja  .  getCellRangeByName  (  "B4  ")  .Valué  =  f  (x)  '  Imprime  f  (x)  en  "B4" 

End  Sub 
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9  Function  F (x) 

10  F  =  x/'2+x+l 

11  End  Function 


Figura  A.10  Leer  X  =  4  en  "A4"  e  imprimir  /( 4)  =  21  en  "B4" 


Leer  o  imprimir  en  la  celda  usando  la  posición,  La  hoja  electrónica  se  puede  ver  como  una  matriz. 


Al 

=  '(0,0) 

■BíÍ.oTI  0.°) 

c 

(2,0) 

2 

(0,1) 

(1,1) 

(2,1) 

3 

(0,2) 

(1,2) 

(2,2) 

FiguraA.il  La  celda  Al  corresponde  celda  (0,0). 

La  celda  (c,/)  corresponde  a  la  columna  c  y  la  fila  /.  La  columna  A  es  la  columna  0,  la  columna  B  es  la  columna  1, 
etc.  La  celda  "Al"  es  la  entrada  (0,0),  la  celda  "A2"  es  la  celda  (0,1), la  celda  "A3"  es  la  celda  (0,2)  y  la  celda  "An"  es 
la  celda  (0 ,n  —  1).  La  celda  "Bn"  es  la  celda  (1  ,n  —  1),  etc. 

Para  leer  o  imprimir  un  valor  numérico  almacenado  en  una  celda  usando  su  posición  en  la  matriz,  se  usa  el  método 

getCellByPosition  y  la  propiedad  Valué. 


Programa  15  Leer  x  en  "A4"=  (0,  3)  e  imprimir  f{x)  en  "B4"=  (1, 3) ,  desde  la  subrutina  Main. 

1  Option  Explicit 

2  Sub  Main 

3  Dim  Hoja,  x 

4  Hoja  =  ThisComponent .  Sheets  (0)  'Corresponde  a  la  Hoja  1 

5  x  =  Hoja  .  getCellByPosition  ( 0 ,  3 )  .Valué'  Contenido  numérico  de  "A4" 

6  Hoja  .  getCellByPosition  (1 ,  3)  .Valué  =  f  (x)  '  imprime  f(x)  en  "B4" 

7  End  Sub 


Podemos  ahora  imprimir  una  comparación  entre  los  números  armónicos  y  la  aproximación  Hj.y  ~  I  n  ( N )  +  0.57721. 
En  el  cuaderno  de  la  figura  (A. 12)  los  números  armónicos  se  imprimen  en  las  celdas  J2,  J3,  J4,  .  .  .  que  corresponde 
a  las  celdas  (9,  i)  con  i  =  1,2,...  y  el  valor  de  comparación  se  imprime  en  las  celdas  Kl,  K2,  .  .  .  que  corresponde  a  las 
celdas  (10,  i)  con  i  —  1,2,... 
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1 

Hn 

Ln(N)  +0,57721 

2 

2,9289682539682500 

2,8797950929940500 

3 

5,1873775176396200 

5,1823801859880900 

4 

7,4854708605503400 

7,4849652789821400 

5 

9,7876060360443500 

9,7875503719761800 

6 

12,0901461298633000 

12,0901354649702000 

Figura  A. 12  Comparando  Hpj  con  1  n  (  N )  +  0.57721 


N 

Programa  16  Imprimir  Números  armónicos  ~  1/i  vs  ln  í  N)  +  0.57721 

_ i=l _ 

Sub  Main  ( ) 

Dim  i 

For  i=l  To  5 

ThisComponent . Sheets (0)  . getCe 1 lByP o s it ion (9,  i)  .Valué  =  NHarmonico (10*  i) 
ThisComponent . Sheets (0) . getCellByPosition  (10, i) .Valué  =  Log (10* i) +0 . 57721 
Next  i 
End  Sub 


Function  NHarmonico  (N) 
Dim  i  As  Long 
Dim  suma  As  Double 
suma=0  :  i=l 
Do 

suma  =  suma+  1/i 
i  =  i+1 

Loop  Until  i  >  N 
NHarmonico  =  suma 
End  Function 


Para  leer  o  imprimir  texto  se  usa  el  método  setString,  por  ejemplo 


Programa  17  Leer  e  imprimir  texto  en  una  celda 

Sub  Main 
Dim  txt 

txt=  "Si  x=  "+Str  (x)  +",  f(x)=  "+Str  (f  (x)  ) 

ThisComponent . Sheets  (0)  . getCellByPosition (1,3)  . setString ( txt) 
End  Sub 


Leer  cadenas  de  caracteres  de  una  celda  Para  leer  el  contenido  de  una  celda  como  una  cadena  de  caracteres  (String) 
se  usa  el  método  getString,  por  ejemplo 
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A 

B 

1 

2 

3 

X 

f(x) 

4 

4 

Si  x=  4,  f(x)=  21 

Figura  A. 13  Imprimir  texto 


Dim  txt  As  String 

txt  =  ThisComponent . Sheets (0) . getCellRangeByName ("A4") . getStringO 


Coloi  De  paso,  para  cambiar  el  color  de  fondo  y  el  color  de  la  fuente  en  la  celda  usamos  CharColor  y  CellBackColor, 


1  Dim  oCell 

2  oCell  =  ThisComponent. Sheets (0) .getCellRangeByName ("A4") 

3  oCell. Valué  =  2.343403000102 

4  'Color  del  texto:  blanco 

5  oCell . CharColor  =  RGB (255, 255, 255) 

6  'Color  de  fondo:  azul 

7  oCell . CellBackColor  =  RGB(0, 0,255) 


A.3 


Ejecutar  una  sub rutina  (o  una  función)  desde  un  botón. 


Para  dar  un  ejemplo  de  cómo  se  inserta  un  botón  en  la  hoja  y  de  cómo  se  le  asigna  una  subrutina  (de  tal  manera 
que  cuando  el  usuario  hace  clic  en  el  botón,  se  ejecuta  la  subrutina),  vamos  a  implementar  una  subrutina  de  nombre 
"Leerlmprimir  ()  ".  Agregamos  las  instrucciones  en  la  subrutina  para  leer  un  valor  Xq  en  la  celda  "A4"  e  imprimir 
/(xq)  en  la  celda  "B4".  La  función  /  será  f(x)  —  x3  +  x  +  1. 


A 

B 

c 

i 

Camp..  "*■  X 

te  | 

2 

Calcular 

3 

X 

f(x) 

D 

4 

Figura  A.  14  Leer  e  imprimir  en  una  celda 


El  código  de  la  subrutina  podría  ser 

Programa  18  Subrutina  para  leer  e  imprimir  en  una  celda 


1  Sub  Leerlmprimir ( ) 

2  Dim  Hoja,x 
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3  Hoja  =  thisComponent . Sheets ( 0 ) 

4  x  =  Hoja . getCellRangeByName ( "A4 ") .Valué 

5  Hoja . getCellRangeByName ( "B4 ") .Valué  =  f (x) 

6  End  Sub 


Después  de  digitar  el  código  procedemos  a  la  compilación  para  revisar  la  sintaxis.  La  sintaxis,  en  el  ambiente  com- 
putacional,  se  refiere  al  "conjunto  de  reglas  que  definen  las  secuencias  correctas  de  los  elementos  de  un  lenguaje  de 
programación".  Estas  reglas  son  las  que  estamos  aprendiendo  en  el  camino.  Observe  que  la  sintaxis  no  tiene  que  ver 
con  la  lógica  del  cálculo.  Lo  que  tratamos  de  hacer  es  que  la  sintaxis  esté  bien  y  el  cálculo  sea  correcto. 

Agregar  el  botón  Ahora  sigue  insertar  el  botón  que  "dispara"  el  cálculo.  Debemos  tener  visible  la  barra  "Campos  de 
control  de  formulario"  .  Si  no  esta  visible,  se  habilita  con 

Ver>Barra  de  herramientas>Campos  de  control  de  formulario. 

Para  crear  un  botón,  seleccionamos  el  botón  □  en  la  barra  Campos  de  control  y  arrastramos  el  ratón  (presionando 
el  botón  izquierdo)  en  cualquier  parte  del  cuaderno. 


Figura  A.  15  Selecciona  el  botón  y  arrastra  el  ratón... 

En  este  momento,  el  botón  está  en  "modo  diseño" .  Para  poner  la  etiqueta  "Calcular  "  abrimos  la  ventana  de  propiedades 
del  botón  (con  clic  derecho  sobre  el  botón,  abrimos  el  menú  "Campo  de  control") 


Clic  derecho 
/\ 

Camp  ^  X 

-  ./ .  X 

K® 

■  í’  Botóíh  ^ 

n  „  Posición  v tamaño. . 

ar  El 

□  i#  w  j  r 

descripción. . 

Nombre. . 

£1  U 

ÍIMBB  Jcnpc  je  coico 

A  IfB 

l_9¡  Formulan  o... 

Figura  A. 16  Campos  de  control. 


y  editamos  el  campo  "Titulo". 

Ahora,  seleccionamos  la  cejilla  "Acontecimientos"  y  asignamos  una  acción:  "Al  iniciar"  (cuando  el  usuario  hace 
clic  en  el  botón).  Elegimos  la  macro,  es  decir,  la  función  o  subrutina  que  se  va  a  ejecutar  cuando  el  usuario  hace  clic 
en  el  botón.  En  nuestro  caso,  seleccionamos  la  subrutina  Leerlmprimir  ( ) . 

Salir  de  modo  diseño  Luego  de  hacer  clic  en  "Aceptar"  y  cerrar  la  ventana  "Propiedades :  Botón",  debemos  habilitar 


11/ 

el  botón  (que  hasta  ahora  ha  estado  en  "modo  diseño"):  hacemos  clic  en  '  u  (en  la  barra  "Campos  de  control  de 


formulario").  Ahora  ya  podemos  hacer  clic  en  el  botón  para  realizar  el  cálculo  e  imprimir.  Una  subrutina  se  puede 


226  PROGRAMACIÓN  CON  LIBREOFFICE  BASIC  (=OOOBASIC). 


B  |  C 
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. 

j  i 

1  S  i 

H  1 

Camp...  ▼  X 

-X-  " 

-t¡H  Botón 

Propiedades:  Botón 

£3 

C¡  [fe] 

General;  Acontecimientos 

Í¡bl5 

PushButton 

. . . . 1 

- 

Modo  diseño 

Titulo . 

Botón 

0 

I 

Activado . 

..  |sr 

01 

S  O 

L. 

i — i! 

1 

Figura  A.  17  El  botón  está  en  modo  diseño,  podemos  agregar  propiedades. 


Botón 


General  Acontecimientos 


Antes  de  ejecutar.. 
Al  ejecutar . 


S3 

1Q 

- 

M  recibir  clic 

T  ® 

|  Acción  asignada 


Asignar:» 


Antes  de  comenzar 


Selector  de  macros 


Seleccione  la  biblioteca  que  contenga  la  macro  deseada.  A  continua 
seleccione  la  macro  bajo  'Nombre  de  la  macro'. 


¡±¡  dJ  Mis  macros 

^  celda  jf 

l±j  dJ  Macros  de  OpenOffice.o 

B  l"  Leerlmprimir.ods 

Main 

B  f¿¿)  Standard 

(s] 

Figura  A.18  Asignar  la  subrutina  que  se  ejecuta  cuando  se  hace  clic  en  el  botón. 


ejecutar  también  con  ALT-F11 . 


A.4 


Crear,  exportar,  importar  y  cargar  bibliotecas. 


Recordemos  de  nuevo  que  las  macros  se  guardan  en  módulos,  estos  a  su  vez  se  guardan  y  organizan  en  bibliotecas, 
las  cuales  están  contenidas  dentro  de  documentos.  Hasta  ahora,  todos  nuestras  subrutinas  y  funciones  las  hemos 
editado  en  un  módulo  en  la  biblioteca  Standard.  La  biblioteca  Standard  no  se  puede  exportar  (ni  eliminar),  así  que 
si  queremos  tener  disponibles  nuestras  funciones  especiales  para  otros  cuadernos,  una  opción  es  exportarlas  en  otra 
biblioteca.  Así  otro  cuaderno  las  puede  importar. 

Para  ver  el  proceso  de  exportar  e  importar,  vamos  a  reunir  varias  funciones  matemáticas  y  otras  utilitarias  e  intro¬ 
ducirlas  en  un  módulo  de  una  nueva  biblioteca.  Esta  nueva  biblioteca  la  llamaremos  aquí  BblMatematica .  Luego 
exportamos  esta  biblioteca  para  que  cualquier  otro  cuaderno  la  pueda  importar.  Los  pasos  son, 

1.  Crear  una  nueva  biblioteca  BblMatematica 

2.  Exportar  la  biblioteca 

3.  Importar  y  cargar  la  biblioteca  (en  otro  cuaderno) 

A.4.1  Crear  una  biblioteca. 

En  lo  que  sigue,  vamos  a  suponer  que  tenemos  un  cuaderno  llamado  BblMatematica.  En  este  cuaderno  tenemos 
las  funciones  y  las  macros  especiales  que  queremos  exportar  como  una  biblioteca.  Vamos  a  suponer  que  todos  estos 
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programas  están  en  la  biblioteca  Standard. 

Para  crear  esta  biblioteca  (que  contendrá  el  módulo  o  los  módulos  con  las  funciones  especiales  u  otras  macros)  abri¬ 
mos  la  ventana  Macros  básicas  con  ALT-F11 .  Hacemos  clic  en  el  botón  Administrar . 

En  la  nueva  ventana  Organizador  de  macros . .  .  elegimos  la  pestaña  Bibliotecas  (Library), 


en  la  cejilla  Ubicación(Location)  elegimos  el  cuaderno  actual. 


y  presionamos  el  botón  Nuevo .  Luego,  en  la  nueva  ventana  ponemos  el  nombre  a  nuestra  bi-blioteca,  en  el  campo 
correspondiente.  Puede  ser  cualquier  nombre,  en  nuestro  caso  le  pondremos  el  mismo  nombre  del  cuaderno  de 
trabajo:  BblMatematica . 

Aparece  la  biblioteca  agregada.  Podemos  hacer  clic  en  Cerrar  (Cióse)  . 

La  nueva  biblioteca  tiene  ya  un  module  1 . 

Presionamos  el  botón  Editar  para  introducir  el  código  de  algunas  funciones  y  subrutinas  en  este  módulo  y  para 
editar  cualquier  otra  función  nueva. 
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Nombre  de  la  rnacro 


B  £*?  Mismacros 

CD  Macros  de  QpenQffice.o 


Módulos  Diálogos  Bibliol 


I  a  f 


Nombre  de  la  rnacro 


B  t5?  Mis  macros 
3  CD  Macros  de  OpenOffice.o 
B 


Organizador  de  macros  básicas  de  OpenOffice.org 


Módulos  |  Diálogos^  Bibliotecas  | 


¡BblMatem  atica. ods 


lluevo...] 


Importar... 


Macros  básicas  de  OpenOffice.org 
Nombre  de  la  rnacro 
Main 

Macro  desde 

B  £?  Mis  macros 
B  G3  MacrosdeOpenOffice.org 
B  "Hii  BblMatem  atica. ods 
B  (q)  BblMatem  atica 

¡3$  IBWWB1  - 

B  (q|  Standard 


Macros  existentes  en:  Modulel 


iEjecutarj 


Cerrar 


Asignar... 


Editar 


Eliminar... 


Administrar... 


A.4.2  Agregar  un  nuevo  módulo. 

Para  crear  un  nuevo  módulo  hacemos  clic  derecho  en  la  barra  en  la  que  aparece  el  nombre  del  módulo  y  elegimos 

Insertar  ->  Módulo  Basic. 
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I  ¡  BbIMatem atiea.ods.BbIMatem atica  -  OpenOffice.org  Basic 


Archivo  Editar  Ver  Herramientas  Ventana  Ayuda 


[BbIMatem  atica. ods]. BbIMatem  atica 


- 1  &  E 


Sub  Main 
End  Sub 

'Constantes 

Global  Const  PI 
Global  Const  E 


As  Double  =  3.14159265358979 
as  Double  =  2.71828182845905 


Insertar  un  nuevo 


A.4.3  Exportar  una  biblioteca. 

Para  exportar  una  biblioteca  (con  nuestras  macros  personales  u  otro  tipo  de  macro)  primero  abrimos  el  cuadro  Macros 
básicas...  conALT-Fll.  Hacemos  clic  en  el  botón  Administrar .  En  la  nueva  ventana  Organizador  de  macros... 
elegimos  la  pestaña  Bibliotecas,  en  la  cejilla  Ubicación  elegimos  el  cuaderno  que  tiene  la  biblioteca  y  luego  en  la 
cejilla  Biblioteca  elegimos  la  biblioteca  que  vamos  a  exportar  y  presionamos  el  botón  Exportar .  En  la  nueva  ventana 
elegimos  Exportar  como  biblioteca  Basic  y  hacemos  clic  en  Aceptar .  Inmediatamente  se  abre  el  explorador  para 
ubicar  la  carpeta  en  la  vamos  a  guardar  la  biblioteca. 


Una  vez  elegida  la  ubicación,  hacemos  clic  en  Aceptar  y  luego  hacemos  clic  en  el  botón  Cerrar . 

En  nuestro  caso,  la  biblioteca  queda  guardada  como  una  carpeta  con  tres  archivos  dialog  Module  1  y  script .  Esta 
biblioteca  está  lista  para  importar  en  otro  cuaderno. 
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Dirección 

Carpetas 


| .  D:\Matematica\OOo  Calc\Bibliotecas 


Dirección  D:\Matematica\OOo  Calc\Bibliotecas 

Carpetas 

< 

Nombre 

J t,  BblMatematica 

>  M 

-  tjdialog 
■  Modul 
¡E,  script 

1 

A.4.4  Cargar  una  biblioteca 

Importar  una  biblioteca  no  significa  que  este  disponible.  Cuando  inicia  OpenOffice.org  solo  se  carga  la  biblioteca 
Standard.  Este  es  un  mecanismo  para  acelerar  la  inicialización.  Para  acceder  a  las  bibliotecas  importadas,  se  deben 
cargar  (y  el  'motor'  Basic  las  compila).  Por  ejemplo,  para  cargar  la  biblioteca  (ya  importada)  BblMatematica  en  la 
subrutina  Main,  se  usa  el  código 


'Cargar  la  biblioteca  "BblMatematica"  (si  ya  fue  importada). 
Sub  Main 

BasicLibraries . loadLibrary ( "BblMatematica"  ) 

End  Sub 


Si  no  hacemos  esto,  usar  alguna  función  de  esta  biblioteca  provoca  un  error  en  tiempo  de  corrida:  Property  or 
method  not  found  (propiedad  o  método  no  encontrado) . 

A.4.5  Importar  una  biblioteca. 

Para  importar  una  biblioteca  en  un  cuaderno  CuadernoNuevo,  primero  abrimos  el  cuadro  Macros  básicas.  .  .  con 
ALT-F11,  presionamos  el  botón  Administrar .  En  la  nueva  ventana  Organizador  de  macros...  elegimos  la  pestaña 
Bibliotecas,  en  Ubicación  elegimos  nuestro  (nuevo)  cuaderno  y  hacemos  clic  en  el  botón  Importar . 


Se  abre  el  explorador  y  vamos  a  la  carpeta  en  la  que  está  la  biblioteca,  la  abrimos  y  seleccionamos,  en  nuestro  caso,  el 
archivo  script .  xlb .  Hacemos  clic  en  Abrir . 

En  la  nueva  ventana,  hacemos  clic  en  Aceptar  y  luego  cerramos  la  última  ventana  que  queda. 
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Ahora,  además  de  la  biblioteca  Standard,  la  nueva  biblioteca  está  disponible. 


Macros  básicas  de  OpenOffice.org 
Nombre  de  la  macro 


Main 


Macro  desde  Macros  existentes  en:  Modulel 


S  S  Mis  macros 

Main 

- 

S  MacrosdeOpenOffice.org 

E 

B  ^  CuadernoNuevo.ods 

Root 

E 

B  Q|]  BblMatematica 

ArcSin 

Are  C  os 

E  O  Standard 

max_ 

min_ 

Recordemos  que  para  poder  usar  la  biblioteca,  ésta  se  debe  cargar.  En  el  código  de  la  figura  que  sigue  se  usan  la 
funciones  Cells  y  Root  (x,  n)  de  la  biblioteca  BblMatematica  (ver  la  sección  ??)  en  un  módulo  de  la  biblioteca  Standard 
del  nuevo  cuaderno. 


Th  CuadernoNuevo.ods.Standard  -  OpenOffice.org  Basic 


Figura  A.19  Cargar  y  usar  nuestra  la  biblioteca  BblMatematica. 


A.5 


Subrutinas  y  funciones 


En  esta  sección  estudiamos  aspectos  más  específicos  de  las  funciones  y  subrutinas  con  el  propósito  de  iniciar  la  im- 
plementación  de  algunas  funciones  especiales  para  una  biblioteca  de  funciones  para  métodos  numéricos. 


A.5.1  Pasar  parámetros  a  una  subrutina  o  una  función. 

Pasar  parámetros  por  valor  y  por  referencia.  A  una  subrutina  o  a  una  función  se  le  pueden  pasar  los  argumentos  o 
parámetros  de  dos  maneras,  una  es  por  valor  y  otra  por  referencia.  Cuando  pasamos  los  argumentos  por  valor,  en 
realidad  lo  que  se  hace  es  pasarle  una  "copia"  del  valor  de  la  variable,  de  tal  manera  que  las  modificaciones  que  sufra 
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la  copia  no  afecta  a  la  variable  original.  En  cambio,  cuando  los  argumentos  se  pasan  por  referencia,  lo  que  estamos 
haciendo  es  pasarle  la  "ubicación"  de  la  variable  en  la  memoria  y  entonces  la  variable  original  si  se  puede  modificar. 

Por  default,  salvo  que  se  indique  lo  contrario,  los  argumentos  se  pasan  por  referencia.  Para  pasarlos  por  valor  hay  que 
agregar  ByVal, 


Function  Root (  ByVal  a  As  Double,  ByVal  n  As  Double)  As  Double 
End  Function 


Parámetros  Opcionales,  En  las  funciones  y  las  subrutinas  se  pueden  poner  variables  opcionales  de  cualquier  tipo.  Se 
debe  comprobar  si  se  'paso'  o  no  el  argumento  para  que  en  su  defecto,se  asigne  un  valor  por  default  a  dicho  argu¬ 
mento,  para  verificar  si  se  paso  o  no  un  argumento  se  usa  la  función  de  OOo  Basic  IsMissing  (  Argumento) . 

División  con  resto.  Si  b  0,  la  división  de  a  por  b  se  representa  de  dos  maneras  a  —  qb  +  r  o  como  a/b  —  c\  +r/b 
donde  q  es  el  cociente  y  r  el  resto.  En  el  programa  que  sigue  se  hace  una  división  entera.  El  parámetro  opcional  es 
n,  si  el  parámetro  no  esta  presente  o  si  n  =  0,  el  resultado  se  imprime  como  a  =  qb  +  r.  Opcionalmente  se  puede 
escoger  imprimir  a/b  —  q  +  r/b  si  agregamos  el  parámetro  opcional  con  valor  n  =1 . 


Programa  19  División  con  resto.  El  tipo  de  salida  está  controlada  por  un  parámetro  opcional 

Function  Division_yResto (a,  b,  Optíonal  n  As  Integer)  As  String 
Dim  tipoSalida  As  Integer 

If  Not  IsMissing  (n)  Then  'Si  el  parámetro  n  está  presente 
tipoSalida  =  n 

Else  '  Si  n  no  está,  usamos  el  valor  default  del  parámetro 
tipoSalida  =  0 
End  If 

If  tipoSalida  =0  Then  'Salida  b*q  +  r 

Division_yResto  =  Str (a) +"="+Str (b) +" *"+Str (a[+"+"+Str (a  Mod  b) 

End  If 

If  tipoSalida  =1  Then  'Salida  a/b  =  q  +  r/b 

Division_yResto  =  Str (a) +" / "+Str (b) +" =" +Str (a/b) +"+"+Str (a  Mod  b) + "/ "+Str  (b) 
End  If 
End  Function 


Al  ejecutar  Division_yResto  (5,4)  devuelve  "5=4  *1+1"  mientras  que  Division_yResto  (5,4,1)  devuelve  "5/4=l+l/4". 


A.5.2  Manejo  de  errores. 

Los  errores  en  tiempo  de  ejecución  (como  divisiones  por  cero,  desbordamiento,  etc.)  se  pueden  controlar  con  el  mane- 
jador  de  errores  ('ErrorHandler')  de  OOo  Basic.  Cuando  el  manejador  de  errores  detecta  un  error,  ejecuta  la  salida 
de  la  función  (o  la  subrutina)  en  la  línea  de  código  del  error  e  inmediatamente  ejecuta  el  código  que  hemos  asignado 
al  manejador  de  errores.  Aquí  vamos  a  usar,  en  principio,  un  manejador  de  errores  genérico:  Cuando  detectamos  un 
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error,  salimos  de  la  función  (o  la  subrutina)  y  enviamos  una  mensaje  con  la  descripción  del  error.  El  código  sería  el 
siguiente. 


Function  nombreFuncion ( )  'Manejador  genérico  de  errores 
On  Error  Goto  msgError 

i 

'...el  código  de  la  función  va  aquí 
nombreFuncion  =. . . . 

Exit  Function 

'Código  para  'manejar'  el  error 
msgError : 

'Si  Err=0  no  hubo  error, 

'si  Err<>0  hubo  algún  error  en  tiempo  de  corrida. 

If  Err  o  0  Then 

'Mensaje  con  #  de  error,  descripción  del  error  y  #  de  línea 
MsgBox  "Error  #:  "&  Err  &  Chr(13)  &  Error  &  Chr(13)  &''Línea  "  &  Erl 
End  If 

On  Error  Goto  0  ' reinicializar  las  variables  de  error, 

'es  decir  Err,  Error  y  Erl. 

End  Function 


El  manejador  de  errores  puede  tener  cualquier  nombre  válido,  aquí  lo  llamamos  msgError,  y  tiene  tres  variables: 
Err-nú mero  de  error,  Error=  descripción  del  error  y  Erl=  número  de  línea  del  error  en  el  código. 

Raíces  n— ésimas.  A  menudo  la  función  ax  se  implementa  usando  la  fórmula  ax  =  exína,  0X  —  1  (con  0o  =  1!);  pero 
no  se  acepta  el  caso  a  <  0.  Hay  que  implementar  una  nueva  función  Root  (a,n)  para  que  maneje  raíces  como 
(-8)1/3  =  ^=8. 

Si  n  es  impar  y  a  <  0  usamos  la  fórmula  a}  —  sgn(fl)  ■  |  a  | 1  ^ " .  En  otro  caso  usamos  a]  .  La  función  es  sencilla  de 
implementar,  pero  la  vamos  a  usar  para  mostrar  un  ejemplo  de  cómo  usar  el  manejador  de  errores: 

Si  n  es  par,  dejamos  que  se  encargue  la  función  default  aA  (1/n) .  Si  a  <0  o  n  =0,  se  dispara  un  error. 

Si  n  es  impar,  aA  (1/n)  =Sgn  (a)  *  Abs  (a)  A  ( 1/n)  sin  importar  el  signo  de  a. 


Programa  20  Root(x,n)  con  manejador  de  errores. 

Function  Root (ByVal  a  As  Double,  ByVal  n  As  Double)  As  Double 
Dim  m  As  Integer 
m  =  Int  (n)  'índice  entero 
On  Error  Goto  msgError  'Manejo  de  errores 
If  m  Mod  2  =  0  Then  'Errores  posibles:  división  por  cero  o 

Root  =  a  A  (1  /  m)  'subradical  negativo. 

El  se 

Root  =  Sgn  (a)  *  Abs  (a)  A  (1  /  m) 

End  If 

Exit  Function 
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msgError : 

If  Err  o  0  Then 

MsgBox  "Error  #;  "&  Err  &  Chr  (13)  &  Error  &  Chr(13)  &  "En  la  línea  "  &  Erl 

End  If 

On  Error  Goto  0  '  reinicializar  las  variables  de  error, 

'  es  decir  Err,  Error  y  Erl. 

End  Function 


A.5.3  Usando  la  funciones  de  00o  Cale  en  00o  Basic. 

La  lista  de  funciones  disponibles  en  OOo  Cale  se  puede  acceder  con  Ctrl  F2 .  Muchas  de  estas  funciones  no  se  en¬ 
cuentran  en  OOo  Basic  pero  aún  así  se  pueden  invocar  desde  una  macro.  Usar  estas  funciones  pueden  ser  muy 
conveniente  porque  usualmente  están  muy  bien  implementadas. 

El  nombre  a  nivel  de  programación.  OOo  Cale  usa  un  nombre  en  la  hoja  para  cada  función  pero  usa  otro  nombre  a 
nivel  de  programación.  Por  ejemplo,  en  mi  versión  en  español  OOo  Cale  entiende  la  fórmula  =REDONDEAR  (4, 4544;  2) 
pero  no  entiende  la  fórmula  =R0UND  (4,  4544;  2)  .  Sin  embargo,  n  nivel  de  programación  debemos  usar  el  nombre  de 
programación  ("programmatic  ñame")  e  invocar  la  función  ROUND . 

Para  acceder  a  todas  las  funciones  de  OOo  Cale  necesitamos  crear  un  servicio.  En  este  caso,  el  servicio  FunctionAccess . 
Este  servicio  nos  provee  de  propiedades  y  métodos.  Aquí  nos  interesa  el  método  callFunction .  El  siguiente  código 
general  hace  una  llamada  a  una  función  "NombreFuncion" .  El  nombre  de  la  función  siempre  es  una  tira  de  texto  y  el 
segundo  argumento  siempre  es  un  array 


Dim  oFunction,x 

oFunction  =  createUnoService ( "com. sun . star . sheet .FunctionAccess" ) 
x  =  oFunction . callFunction ( "NombreFuncion",  ArgsO) 


En  el  siguiente  ejemplo  se  muestra  la  llamada  a  varias  funciones. 


Programa  21  Usando  funciones  de  OOo  Cale  con  el  método  callFunction  del  servicio  FunctionAccess. 


Sub  Main 

Dim  oFunction,  oCell  'Variant 
Dim  args(l  To  3)  'Array 
' Inicializamos  el  arreglo 
args(l)=4  :  args(2)=2.1  :  args(3)=0.9 
' oCell  es  la  celda  A3 

oCell  =  ThisComponent . Sheets (0) . getCellRangeByName ("A3" ) 

'Crear  el  servicio 

oFunction  =  createUnoService  ( "com. sun . star . sheet . FunctionAccess " ) 

'Usar  el  método  callFunction  del  servicio  para  llamar  a  la  función  "SUM" 
oCell. Valué  =  oFunction . callFunction ( "SUM" ,  Args () ) 

'También  es  válido  usar 

oCell. Valué  =  oFunction . callFunction ( "SUM" ,  Array (4 ,  2 . 1 ,  O . 9) )  'Imprime  27 
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'Aunque  la  función  sea  de  un  solo  argumento,  se  debe  usar  un  array 
oCell. Valué  =  oFunction . callFunction ("Cos" , Array (3 . 1416) ) 

'Aplicación  a  Rangos 
Dlm  oRange 

' oRange  es  el  rango  B4:B6 

oRange  =  ThisComponent . sheets (0) . getcellrangebyname ("B4 :B6") 

'Aplicamos  la  prueba  Z  al  rango  con  parámetros  ¡4=2.5  y  tj  —  1 . 

oCell. Valué  =  oFunction . callFunction (" ZTEST" ,  Array (oRange,  2.5,  1.0)) 
End  Sub 


Nuevas  funciones.  Podemos  incorporar  las  funciones  de  OOo  Cale  como  nuevas  funciones  en  nuestra  biblioteca 
BblMatematica .  Por  ejemplo,  la  función  que  calcula  el  valor  mínimo  de  un  rango  podría  ser. 


Programa  22  Función  MIN  de  OOo  Cale. 

Function  CMIN (oRange) 

Dim  oFunction 

oFunction  =  createUnoService  (  "com. sun . star . sheet . FunctionAccess " ) 
CMIN  =  oFunction . callFunction ( "MIN" ,  oRange) 

End  Function 


La  podríamos  utilizar  así. 


v  =  Array (1, 2, 3, 4) 
x  =  CMIN (v)  'Retorna  1 


Algunas  de  las  funciones  disponibles  son. 


Tabla  A.l  Funciones  matemáticas  disponibles  en  OOo  Cale 


COS 

SIN 

TAN 

COT 

ACOS 

ACOT 

ASIN 

ATAN 

RADIANS 

PICOSH 

SINH 

TANH 

COTH 

ACOSH 

ACOTH 

ASINH 

ROUND 

ROUNDDOWN 

ROUNDUP 

CEU  .TNG 

FLOOR 

EVEN 

ODD 

MROUND 

MOD 

EXP 

POWER 

LOG 

LN 

LOGIO 

ABS 

COMBIN 

CONVERT_ADD 

COUNTBLANK 

COUNTIF 

DELTA 

ERE 

ERFC 

FACT 

FACTDOUBLE 

GESTEP 

ISEVEN 

ISODD 

LCM 

LCM_ADD 

MULTINOMIAL 

PRODUCT 

RAND 

SIGN 

SQRT 

SQRTPI 

SUBTOTAL 

SUM 

SUMIF 

SUMSQ 

SERIESSUM 

ATAN2 

DEGREES 

ATANH 

TRUNC 

INT 

QUOTIENT 

COMBINA 

CONVERT 

BESSELI 

BESSELJ 

BESSELK 

GCD 

GCD ADD 

RANDBETWEEN 

En  la  tabla  que  sigue  se  muestran  algunas  funciones  de  la  hoja  para  trabajar  con  matrices.  Este  tema  se  desarrolla  con 
detalle  en  la  sección  A. 5.8. 


La  lista  completa  de  funciones  se  puede  encontrar  en, 

http: //wiki . Services . openof fice . org/wiki/Documentation/How_Tos/Calc :_Functions_listed_by_category 
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Tabla  A.2  Funciones  para  matrices  (arrays)  en  OOo  Cale 

FREQUENCY  GROWTH  LINEST  LOGEST  MDETERM  MINVERSE  MMULT  MUNIT 

SUMPRODUCT  SUMX2MY2  SUMX2PY2  SUMXMY2  TRANSPOSE  TREND 


A.5.4  Un  evaluador  de  funciones  matemáticas  (“Math  Parser”). 

La  idea  aquí  es  digitar  una  expresión  tal  como  xA3+2*x-3*log  (x)  +1  en  una  celda  y  leer  y  evaluar  esta  función  en 
algún  valor  de  x.  Para  hacer  esto  necesitamos  una  evaluador  de  funciones  matemáticas  ("Math  parser").  Sin  embargo 
hacer  un  evaluador  requiere  el  uso  de  estructuras  de  datos  más  complejas  de  las  que  queremos  usar  en  este  libro. 
Hay  un  par  de  soluciones  sencillas:  Usar  el  evaluador  de  fórmulas  de  una  celda  o  usar  un  evaluador  de  funciones  de 
otro  lenguaje,  por  ejemplo  el  evaluador  de  javascript . 

Cuidado:  Este  evaluador  es  muy  lento,  solo  se  debería  usar  para  cálculos  pequeños.  Para  cálculos  más  demandantes 
es  declarar  la  función  directamente  en  el  código. 

Un  evaluador  Eval  (f ,  x)  Una  manera  de  evaluar  una  función  es  con  el  método  formula  de  las  celdas.  La  estrategia 
es  sencilla:  La  fórmula  de  la  función  es  una  tira  de  texto  (string),  leemos  esta  expresión  y  sustituimos  la  variable  por 
el  valor  a  evaluar  y  evaluamos  la  fórmula  que  nos  queda  con  el  método  formula .  Esta  manera  de  proceder  requiere 
una  celda  que  almacene  el  resultado  de  la  evaluación.  Nuestra  función  Eval  nos  va  a  permitir  hacer  cálculos  como. 


f  =  "2, 455*Root (x; 3) +xA2" 
x  =  Eval (f,xO) 
f  =  "t A2+l " 
x  =  Eval (f,tO,  "t") 


' "Root"  requiere  pues  evaluamos  en  la  hoja 
'Devuelve  el  valor  f(xO).  "x"  es  variable  default 

'Devuelve  el  valor  f(tO).  "t"  es  la  variable 


En  el  siguiente  código  se  muestra  como  implementar  una  tal  función  Eval  (f,x)  .  La  implementación  requiere  dos 
funciones  adicionales  para  manejar  Strings . 


Cll 


%  m  =  r 


A 

B 

1 

f(x)  = 

Celda  de  evaluación  (invisible)  [ 

2 

(2*xA3+x+1  )/(3*cos(pi()/2)+x) 

3 

x= 

1 

4 

Resultado 

4,000000000000 

Figura  A.20  Usando  la  función  Eval  (f ,  x)  . 


Programa  23  Evaluador  de  funciones 

'Evalúa  funciones  usando  OOo  Cale,  por  tanto  las  fórmulas  deben  ajustarse.  Usar  solo  para  cálculos  pequeños, 
'a  la  sintaxis  de  la  hoja  y  a  la  configuración  regional  del  idioma. 

'Evalúa  fórmulas  funcionales  como  "2*xA3-2*cos (x) +log (x+1) " ,  "tA2+3*Exp (t) ",  etc. 

'Puede  usar  funciones  de  las  bibliotecas:  2,4332*x  -3*Root (x; 3) . 

'Observar  el  uso  de  debido  a  la  configuración  regional  y  el 

'Requiere  una  hoja  y  una  celda  auxiliar  (i,j)  para  evaluar  (por  default  es  (0,0)). 

'La  hoja  default  es  la  hoja  0 
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'Uso:  f=  oCell.String  o  f="2*xA2+x+l " 

'  Eval (f, valor)  o  Eval(f,  valor,  "variable") 


Function  Eval (f  As  String,  valor  As  Double,  Optional  variable  As  String, 

Optional  j,  Optional  i,  Optional  numhoja) 

Dim  valorVar  As  String 
Dim  nombreVar  As  String 
Dim  formula  As  String 
Dim  CellAuxiliar  As  Variant 
Dim  co,  fi,nh,  el 

'Posición  de  la  La  celda  auxiliar  (para  evaluar) 
co=0  :  fi  =0  :  nh  =0  :  nombreVar=n x"  'default 
If  Not  IsMissing  (i)  And  Not  IsMissing(j)  Then 
co=j  :  fi  —i 
End  If 

If  Not  IsMissing  (numhoja)  Then 
hn=numhoja 
End  If 

If  Not  IsMissing (variable)  Then 
nombreVar  =  variable 

End  If 

CellAuxiliar=ThisComponent . Sheets (nh ) . getCellByPosition ( co,  fi ) 

'Color  de  texto  =  color  de  fondo 
el  =  CellAuxiliar . CellBackColor 
If  el  =  -1  Then 

CellAuxiliar . CharColor  =  RGB (255, 255,  255) 

Else 

CellAuxiliar . CharColor=cl 
End  If 

'cambiamos  a  String  para  la  sustitución 
valorVar=  Str (valor) 
formula  =  f 

'Sustituye  valor  por  variable 

Cali  strSustituir ( formula,  nombreVar,  valorVar) 

'  Las  fórmulas  inician  con  "=" 
formula  =  "=  ”+ formula 
'Evaluar  la  fórmula 

CellAuxiliar . SetFormula (formula) 

Eval=  CellAuxiliar . Valué 
End  Function 


'Subrutina  para  sustituir 

Sub  strSustituir  (  ByRef  strl  As  String,  str2  As  String,  str3  As  String) 
Dim  i  As  Long,  si  As  String,  s2  As  String,  L1  As  Long,  L2  As  Long 
strl  =  "  "  &  strl  &  "  " 

L2  =  Len  (str 2) 
i  =  0 
Do 
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i  =  InStr  (i  +  1,  strl,  str2) 

InStr(i  +  1,  strl,  str2,  1) 

If  1=0  Then  Exít  Do 
si  =  Mid (strl,  1-1,  1) 

If  Not  IsLetter (si)  Then 

s2  =  Mid  (strl ,  i  +  1,  1) 

If  Not  IsLetter  (s2)  Then  'Sustituir, 
si  =  Left  (strl,  i  -  1) 

s2  =  Rightfstrl,  Len  (strl)  -  i  -  L2  +  1) 
strl  =  si  &  str3  &  s2 
End  If 
End  If 

Loop 

strl=  Trim(strl) 

End  Sub 

Function  IsLetter (ByVal  char  As  String)  As  Boolean 
Dim  code  As  Long 
code  =  Ase (char) 

IsLetter=  ( 65<=codeAnd  code<=90)  Or (97<=code  And  code<=122)0r  char="_" 
End  Function 


Programa  24  Usando  el  evaluador  en  Main 

Sub  Main 

'Usando  la  función  Eval(f,x)  para  evaluar  f  en  'valor' 

'La  fórmula  debe  respetar  la  sintaxis  permitida  en  la  HOJA 
Dim  f,  valor 

'Leemos  la  fórmula  en  la  celda  "B2" 

f  =  ThisComponent . Sheets (0)  . getCellByPosition  ( 1 ,  1 )  . getString ( ) 
'Leemos  el  valor  de  "x" 

valor  =ThisComponent . Sheets (0) . getCellByPosition (1,2)  .Valué 
'Evaluamos  con  Eval (f, valor) .  "x"  es  la  variable  default 

ThisComponent .Sheets (0 ) . getCellByPosition (1,3) . Value=  Eval (f,  valor) 
'También  puede  introducir  la  fórmulas  directamente, 

f="2,  455*Root  (t;  3)  +ty'2"  '"Root"  es  de  nuestra  biblioteca  BblMatematica 
MsgBox  Eval (f,  valor,  "t " ) 

End  Sub 


Evaluar  funciones  de  dos  variables  La  misma  idea  del  evaluador  para  funciones  de  una  variable  se  puede  usar  en 
dos  variables:  Sustituimos  cada  variable  una  a  la  vez  y  luego  evaluamos.  La  función  la  llamamos  Eval2,  las  variables 
default  son  x  e  y. 

Nuestra  función  Eval2  nos  va  a  permitir  hacer  cálculos  como. 


f  =  "xA2+yA2+l " 

MsgBox  Eval (f , xO, yO)  ' "x"  e  "y"  son  variables  default,  en  ese  orden. 
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f  =  "tA2+yA2+l" 

MsgBox  Eval (f,tO,yO, "t",  "y") 


Programa  25  Eval2  para  evaluar  funciones  de  dos  variables 

'  Eval2  =  evalúa  una  función  de  dos  variables. 

'  Eval (fxy, xO, yO)  ->  f(xO,yO) 

'  Eval2 (ftw,tO,wO, "t", "w")  ->  ftw(tO,wO) 

Function  Eval2 (f  As  String,  valorl  As  Double,  valor2  As  Double,_ 
Optional  vari  As  String,  Optional  var2  As  String, _ 
Optional  j,  Optional  i,  Optional  numhoja) 

Dim  valorVarl  As  String 
Dim  valorVar2  As  String 
Dim  formula  As  String 
Dim  nombreVarl  As  String 
Dim  nombreVar2  As  String 
Dim  CellAuxiliar  As  Variant 
Dim  co,  fi,nh,  el 

'Posición  de  la  La  celda  auxiliar  (para  evaluar) 

co=0  :  fi  =0  :  nh  =0  :  nombreVarl  =  " x"  :  nombreVar2="y"  'default 
If  Not  IsMissing (i)  And  Not  IsMissing(j)  Then 
co=j  :  fi  =i 
End  If 

If  Not  IsMissing (numhoja)  Then 
hn=numhoja 
End  If 

If  Not  IsMissing (vari )  Then 
nombreVarl=varl 
End  If 

If  Not  IsMissing (var2 )  Then 
nombreVar2=var2 
End  If 

CellAuxiliar=ThisComponent . Sheets (nh)  . getCellByPosition (co,  fi) 
'Color  de  texto  =  color  de  fondo 
el  =  CellAuxiliar . CellBackColor 
If  el  =  -1  Then 

CellAuxiliar . CharColor  =  RGB (255, 255,  255) 

El  se 

CellAuxiliar . CharColor=cl 
End  If 

'cambiamos  a  String  para  la  sustitución 

valorVarl  =  Str (valorl)  :  valorVar2  =  Str(valor2) 
formula  =  f 

'Sustituye  valorVari  por  nombreVari 

Cali  strSustituir ( formula,  nombreVarl,  valorVarl) 

Cali  strSustituir ( formula,  nombreVar2,  valorVar2) 

'  Las  fórmulas  inician  con  "=" 
formula="=  "+ formula 


Evaluar  la  fórmula 
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43  CellAuxiliar . SetFormula  ( formula ) 

44  Eval2=  CellAuxiliar  .Valué 

45  End  Function 


A.5.5  Vectores,  matrices  y  rangos. 

Los  "arreglos"  (array)  son  de  uso  frecuente  no  solo  en  cálculos  matriciales,  muchos  cálculos  requieren  este  formato, 
por  ejemplo  en  interpolación  donde  se  debe  seleccionar  un  rango  de  datos. 

Arrays,  Un  array  ("arreglo")  es  una  estructura  de  datos  que  se  usa  para  indexar  datos.  Por  ejemplo  columnas,  filas 
o  tablas  de  números.  Es  obligatorio  declarar  los  arreglos  antes  de  usarlos.  Para  declarar  un  arreglo  se  usa  Dim  y  se 
usa  paréntesis  para  definir  y  accesar  los  elementos  del  arreglo.  En  la  tabla  (A.5.5)  se  muestra  la  manera  de  definir  un 
arreglo  y  una  breve  descripción. 


Declaración 

Elementos 

Descripción 

Dim  v(n)  As  Integer 

n  + 1 

Enteros  v(0),v(l),...,v(n) 

Dim  v(l  To  n)  As  Integer 

n 

Enteros  v(l),v(2 ),...,v(n) 

Dim  w(-n  To  n)  As  Double 

2n  +  1 

w(—n),w(—n  +  l),...,w(0),w(l),...,w(n) 

Dim  M(n,  m) 

(n  +  1)  x  (m  +  1) 

=  aij, 

^00  n01 

«10  «11  ...  «l,m 

\anQ  &nl  •••  ttn,m  / 

Dim  M(1  To  n,  1  To  m) 

n  x  m 

=  a^, 

f«H  «i2  ...  í¡i/m'' 

«21  «22  -  a2,m 

\Clni  dn\  ...  dn,m  / 

Tabla  A.3 

Un  arreglo  se  puede  declarar  de  manera  directa,  por  ejemplo 


Dim  v ( ) 

v=Array (eos (1) , 2 . 3, 4 . 2)  ' v(0)=cos (1) ,  v(l)=2.3  y  v (2 ) =4 . 2 


Aunque  podemos  crear  una  tabla  como  un  arreglo  "de  arreglos",  es  mejor  hacerlo  de  manera  directa,  por  ejemplo. 


Dim  v  (0  To  1,  0  To  2) 
v  (0,  0)  =  1  :  v  (0,  1)  =  2  :  v(0,  2)  =  3 
v  ( 1 ,  0)  =  3  :  v  ( 1 ,  1)  =  5  :  v(l,  2)  =  2.3 


ReDim  Es  frecuente  no  conocer  las  dimensiones  del  arreglo  antes  de  seleccionar  un  rango  o  leer  una  o  más  variables. 
Podemos  declarar  el  arreglo  sin  dimensiones  y  redimensionarlo  en  cuando  tengamos  el  dato,  por  ejemplo. 


Introducción  a  los  Métodos  Muméricos..  Walter  Mora  F. 
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Dim  v() 

ReDim  v(l  To  n) 


LBound,  UBound.  Para  recorrer  un  vector  w  de  tamaño  desconocido  podemos  usar  LBound  (w)  y  UBound  (w)  para  tener 
acceso  al  primer  y  último  subíndice,  respectivamente,  del  arreglo. 

También  podemos  leer  las  dimensiones  de  una  arreglo  2-dimensional  (una  matriz)  A.  Si  se  declara  ReDim  A(fl  to 
fn,  el  to  en),  entonces  LBound  (A,  1)  devuelve  fl,  UBound  (mA,  1 )  devuelve  fn,  LBound  (A,  2)  devuelve  el  y  UBound  (mA,  2) 
devuelve  en .  Por  ejemplo. 


Programa  26  Usando  arreglos 

Sub  Main 
Dim  i 
Dim  w() 

ReDim  w(l  To  n) 

'La  primera  entrada  de  w  es  w (LBound (w) )  y  la  última  es  w (UBound (w) ) 
For  i=LBound(w)  To  UBound  (w) 
w  (i)  =0 
Next  i 


Dim  A  () 

ReDim  A  (10, 15)  '11  filas,  16  columnas 


MsgBox  LBound (mA,  1 ) 
MsgBox  UBound (mA,  1 ) 
MsgBox  LBound (mA,  2) 
MsgBox  UBound (mA, 2) 
End  Sub 


-> 

0 

(fila  0) 

-> 

10 

(fila  10) 

-> 

0 

(columna  0) 

-> 

15 

(columna  15) 

Preserve.  Podemos  aumentar  la  dimensión  del  arreglo  conservado  los  datos  ya  alameenados  en  el  arreglo.  Esto  se 
hace  con  ReDim  Preserve  A.  Por  ejemplo. 


Programa  27  Usando  Preserve 

Sub  Main 
Dim  i 
Dim  A  () 

ReDim  A(1  To  2,  1  To  2) 


A(l,l)=ll  :  A  ( 1 , 2 )  =12  :  A(2,l)=21 


ReDim  Preserve  A  (2, 2) 


A(2,2)=22  'A  =  11  12 

'  21  22 


A  =  _  11  12 

21  22 


End  Sub 
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Array  de  Arroy's.  A  veces  tenemos  una  matriz  como  un  un  array  con  array's.  Lo  bueno  de  esto  es  que  las  filas  se 
pueden  accesar  como  vectores,  por  ejemplo 


Programa  28  Arreglo  de  arreglos 

Sub  Main 
Dim  T() 

Dim  fila 

T  =  Array  (Array  (3,  5,  7)  ,  Array  (4,  5,  6)  ) 
fila  =  T  (0)  '3  5  7 

MsgBox  fila (2)  ' ->  7 

fila  =  T(l)  '456 

MsgBox  fila(O)  '->  4 
End  Sub 


También  podemos  escribir. 


Programa  29  Arreglo  de  arreglos.  Otra  manera. 

Sub  Main 
Dim  T() 

Dim  fila 

T  (0)  =Array  (3,5,  1) 

T  (1)  =Array  (4,  5,  6)  ) 
fila  =  T(0)  '357 

MsgBox  fila (2)  ' ->  7 

fila  =  T(l)  '456 

MsgBox  fila(O)  ' ->  4 
End  Sub 


A.5.6  Funciones  que  reciben  o  devuelven  arreglos. 

Una  función  puede  recibir  arreglos  como  argumentos  y  entregar  números  o  arreglos.  El  arreglo  que  recibe  se  declara 
Variant. 

En  el  código  que  sigue  se  implementa  la  norma  de  un  vector  v  y  el  producto  escalar.  Si  v  —  ( v\,V2,—,v„ )  su  norma 
es  ||p||  =  \Jv\-Vv\  +  ...  +  v%  y  k  ■  v  —  (k  ■  v1  ,k  ■  v2,...,k  ■  vn). 

Programa  30  Norma  y  producto  escalar 

Function  Norma (V ()  As  Variant) 

Dim  suma, i 
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suma  =  0 

For  i=LBound (V)  To  UBound(V) 
suma  =suma+V (i)  *2 
Next  i 

Norma  =  Sqr (suma) 

End  Function 

Function  Escalar (V(),  k  ) 

Dim  W() 

Dim  i,n 

n  =  UBound  (V) 

ReDim  N(n) 

For  i=LBound (V)  To  UBound (V) 
'V  no  se  modifica 
W  (i)  =  k*V  (i) 

Next  i 

Escalar  =  W() 

End  Function 


Un  ejemplo  de  su  uso  es. 


Programa  31  Cálculos  con  la  norma  y  el  producto  escalar 

Sub  Main 
Dim  x 
Dim  B  () 

Dim  S() 

B  =  Array  (0,  3,  4) 

x  =  Norma  (B)  'Retorna  5 

S  =  Escalar  (B,  2)  'Retorna  (0,6,8) 

End  Sub 


A.5.7  Rangos. 

Una  operación  frecuente  es  seleccionar  con  el  ratón  un  rango,  contar  las  filas  y  aplicar  alguna  fórmula.  La  selección 
del  usuario  se  puede  almacenar  en  una  variable  rango  y  contar  las  filas  de  la  selección,  de  la  siguiente  manera. 


Dim  rango 
Dim  n 

rango  =  ThisComponent . getCurrentSelection ( ) 
n  =  rango .Rows . getCount ( ) 


Como  antes,  se  puede  accesar  el  rango  por  columnas  y  filas. 
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rango. getCellByPosition (0,  i) .Valué 

nos  devuelve  el  valor  en  la  primera  columna  del  rango  (columna  0)  y  en  la  fila  i  (contando  desde  cero).  El  valor  en 
columna  j  del  rango  y  en  la  fila  i  (ambos,  contando  desde  cero),  se  obtiene  con 


rango  =  ThisComponent . getCurrentSelection ( ) 
rango. getCellByPosition (j,  i) .Valué 


Estadística  básica.  Supongamos  que  tenemos  una  muestra  de  N  datos  Xo,xi,...,Xn-i  de  una  población.  El  promedio 
muestral  x  —  (xq  +  X\  H - K  X\i.  i)/N  es  una  estimación  del  promedio  poblacional  ft  (el  valor  esperado  del  prome¬ 

dio  de  todas  las  muestras).  La  varianza  poblacional  i 2  se  estima  con  la  varianza  muestral  s1 2 3 4 5 6 7 8  =  (xi  ~  X)/N.  La 
desviación  estándar  de  la  población  se  estima  con  s.  Otros  valores  de  interés  son  el  valor  máximo  y  el  valor  mínimo 
y  la  mediana. 

En  el  cuaderno  que  se  muestra  en  la  figura  (A. 21)  hay  una  columna  con  los  datos  x¡.  El  botón  Estadísticas  ejecuta 
la  subrutina  Estadísticas  ( )  .  En  esta  subrutina  se  lee  el  rango  seleccionado  por  el  usuario  y  se  calcula  el  máximo,  la 
media  muestral,  la  varianza  muestral  y  la  desviación  estándar  muestral. 


Figura  A.21  Estadística  básica 


Programa  32  Estadística  básica 

1  Sub  Estadísticas ( ) 

2  Dim  n,  i 

3  Dim  Rango 

4  Dim  X() 

5  Rango  =  ThisComponent . getCurrentSelection ( ) 

6  n  =  Rango . Rows . getCount  ( ) 

7  ReDim  X(0  To  n-1) 

8  For  i=0  To  n-1 

X (i) =Rango . getCellByPosition (0,  i)  . Valué 
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Next  i 

ThisComponent . Sheets  (0) . getCellRangeByName ( "C3 ” ) . Valué  =  MaxVect  (X) 
ThisComponent . Sheets  ( 0 ) . getCellRangeByName  ( "D3 " )  .Valué  =  Media  (X) 
ThisComponent . Sheets ( 0 ) . getCellRangeByName ( "E3 " ) .Valué  =  Var (X) 
ThisComponent . Sheets  ( 0 )  . getCellRangeByName ("F3” )  .Valué  =  DevStd (X) 
End  Sub 


Function  MaxVect  (X()) 

Dim  mx,  im 

mx  =  X  (0)  :  im  =  UBound(X) 

For  i  =  0  To  im 
If  X(i)  >  mx  Then 
mx  =  X  (i) 

End  If 
Next  i 

MaxVect  =  mx 
End  Function 

Function  Media  (X()) 

Dim  suma,  iO,im 

suma  =  0  :  im  =  UBound(X)  '#  datos  =  im+1 

For  i  =  0  To  im 

suma  =  suma  +  X(i) 

Next  i 

Media  =  suma/ (im+1) 

End  Function 

Function  Var(X()) 

Dim  promedio,  suma,  im 

promedio  =  Media  (X)  :  suma  =  0  :  im  =  UBound  (X)  ’#  datos  =  im+1 

For  i  =  0  To  im 

suma  =  suma  +  (X  (i) -promedio)  *2 

Next  i 

Var  =  suma/im 
End  Function 

Function  DevStd  (X  ()  ) 

DevStd  =  Sqr  (Var  (X)  ) 

End  Function 


En  el  programa  anterior  se  pasó  los  valores  del  rango  a  un  vector.  Aunque  no  es  necesario,  a  veces  es  sumamente 
cómodo  hacer  esto  porque  las  fórmulas  y  los  algoritmos  son  más  fáciles  de  seguir  y  depurar. 
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Por  ejemplo.  En  el  siguiente  código  pasamos  los  valores  de  la  primera  columna  (columna  0)  a  un  vector  X  ( )  y  pasamos 
los  valores  de  la  segunda  columna  (columna  1,  suponiendo  que  el  rango  tiene  dos  o  más  columnas)  a  un  vector  Y  ( ) , 


Programa  33  Pasar  las  columnas  de  un  rango  a  vectores 

Dim  rango 
Dim  n,  i 
Dim  X(),  Y() 

rango  =  ThisComponent . getCurrentSelection () 
n  =  rango . Rows . getCount  ( ) 

ReDim  X(1  To  n) 

ReDim  Y(1  To  n) 

For  i=l  To  n 

X  (i)  =rango .  getCe  1  lByP  o  s  it  ion  (0,  i-1 )  .Valué 
Y (i) =rango . getCellByPosition (1,  i-1 ). Valué 
Next  i 


En  el  código  que  sigue,  se  pasa  la  totalidad  de  una  rango  a  una  matriz  A . 


Programa  34  Pasar  una  rango  a  una  matriz 

Dim  rango 
Dim  n,m,  i,  j 
Dim  Y  () 

Dim  A  () 

rango  =  ThisComponent .getCurrentSelection () 
n  =  rango  .Rows  .getCount  () 

m  =  rango . Columns . getCount  ( ) 

ReDim  A(1  To  n,  1  To  m)  'Filas  x  columnas!,  A=(a_ij),  i=l .  .n,  j=l .  ,n 
For  i=l  To  n 

For  j=l  To  m 

A (i,  j) =rango. getCellByPosition (j-1,  i-1)  . Valué 

Next  j 
Next  i 


Con  solo  que  haya  una  celda  seleccionada,  ya  el  rango  tendrá  al  menos  una  fila  y  una  columna.  En  la  práctica,  muchas 
de  las  operaciones  de  rango  requieren  que  la  selección  tenga  dos  o  más  filas  (o  columnas).  Si  este  es  el  caso,  se  puede 
agregar  una  instrucción  que  envíe  un  mensaje  si  no  se  ha  seleccionado  la  cantidad  mínima  de  datos  y  además  salir 
de  la  función  o  la  subrutina  (pues  no  habría  nada  que  hacer!).  Para  este  propósito  podemos  usar  el  código 


Programa  35  Mensaje  para  advertir  sobre  la  cantidad  de  datos  seleccionados. 

Sub  SeleccionarDatos () 

Dim  rango 
Dim  n 
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rango  =  ThisComponent . getCurrentSelection  () 
n  =  rango  .Rows .  getCount  () 


If  n<=l  Then 

MsgBox  "Por  favor,  seleccione  los  datos . 
Exit  Sub 
End  If 

End  Sub 


Hacer  una  copia  de  una  Matriz.  Si  tenemos  dos  matrices  MI  ()  y  M2  () ,  para  hacer  una  copia  en  B  de  A,  lo  mejor  es 
usar  un  ciclo  For  y  hacer  la  copia  componente  a  componente: 

Programa  36  Subrutina  para  hacer  una  copia  B  de  una  matriz  A 

Sub  MCopiar  (B  ()  ,  A  ()  ) 

Dim  fl,  fn,  el,  cm,  i,  j 
fl  =  LBound(A,l)  '  primera  fila 

fn  =  UBound(A,l)  '  última  fila 

el  =  LBound(A,2)  '  primera  columna 

cm  =  UBound(A,2)  '  última  columna 

ReDim  B(fl  To  fn,  el  To  cm  ) 

For  i=fl  To  fn 
For  j=cl  To  cm 
B  (i,  j)  =A  (i,  j) 

Next  j 
Next  i 
End  Sub 


La  razón  de  hacer  esto  así  es  porque  la  asignación  B  ( )  =  A  ( )  hace  que  estas  dos  matrices  queden  vinculadas,  es  decir, 
los  cambios  en  A  se  reflejan  en  B  y  viceversa.  Para  algunos  cálculos  esto  no  es  nada  conveniente. 


Programa  37  Probando  la  subrutina  MCopiar 

Sub  Main 
Dim  A  () 

Dim  B  () 

Dim  C() 

Dim  i, j 

ReDim  A(1  To  5,  1  To  5) 

For  i=l  To  5 

For  j=l  To  5 
A(i,j)  =  0 
Next  j 
Next  i 

MCopiar  (B,  A)  'B  es  una  copia  de  A 
C  =  A  'C  está  vinculada  con  A 
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A(l,l)=  1 

MsgBox  A  (1,1)  ' ->  1 

MsgBox  C(l,l)  '->  1,  C  cambió  igual  que  A 
MsgBox  B(l,l)  ' ->  0,  B  no  cambia  con  A 
End  Sub 


A.5.8  Funciones  para  operaciones  con  matrices. 

Como  ya  vimos  en  la  sección  (A. 5.3),  podemos  implementar  funciones  que  usen  las  funciones  para  el  manejo  de  ran¬ 
gos  de  la  hoja  OOo  Cale.  Puede  ser  bueno  usar  estas  funciones  porque  generalmente  son  muy  bien  implementadas. 
Otras  funciones  las  tendremos  que  implementar  según  los  requerimientos  de  los  algoritmos  que  estudiemos  en  el 
futuro. 

Función  Det(A).  En  el  código  que  sigue,  implementamos  una  función  CDET  (A)  para  calcular  el  determinante  de  la 
matriz  AnXn-  Usamos  la  función  MDETERM  de  la  hoja.  Solo  hay  que  recordar  que  la  matriz  A  se  debe  recibir  como 
un  array,  es  decir,  como  Array  (A) . 


Programa  38  Función  determinante  usando  la  función  MDETERM  de  OOo  Cale 

Functlon  CMATRIXDET (oRange) 

Dim  oFunction 

oFunction  =  createünoService  (  "com. sun . star . sheet . FunctionAccess "  ) 
CMATRIXDET  =  oFunction . callFunction ( "MDETERM" , Array  (oRange) ) 

End  Function 


Un  ejemplo  de  su  uso  se  muestra  en  el  código. 


Programa  39  Usando  la  función  CMATRIXDET 

Sub  Main 

Dim  A  ()  As  Double 
Dim  x 

ReDim  A(1  To  2,1  To  2) 

A  (1,1)=  2  :  A  (1,2)  =2  :  A  (2,  1)  =  3  :  A  (2, 2)  =  -3 
x  =  CMATRIXDET  (A)  'Retorna  -12 

'oRange  es  un  rango  en  la  hoja  0 
Dim  oRange 

oRange  =  ThisComponent . sheets  (0) . getcellrangebyname  ("C6 :D7 " ) 
x  =  CMATRIXDET (oRange) 

End  Sub 


Funciones  que  devuelven  arreglos  anidados  Hay  que  hacer  algunos  arreglos  si  la  función  de  OOo  Cale  devuelve  una 
array  anidado  (Ver  [34]),  como  es  el  caso  de  la  multiplicación  de  matrices  y  el  cálculo  de  la  inversa.  En  este  caso  lo 
que  devuelve  la  función  de  OOo  Cale  es  un  array  del  tipo 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 


PROGRAMACIÓN  CON  LIBREOFFICE  BASIC  (=OOOBASIC).  249 


Array (filas (columnas (0  to  n— 1 ) ) ) , 

por  lo  que  debemos  recuperar  los  datos  por  filas.  Por  ejemplo. 


Programa  40  Inversa  de  una  matriz,  primera  versión. 

Function  CMATRIXINVERSE (oRange) 

Dim  Fila,  Filas,  mM,  nf,  i,  j 
Dim  oFunction 

oFunction  =  createUnoService ( "com. sun . star . sheet . FunctionAccess " ) 
Filas  =  oFunction . callFunction ("MINVERSE" ,  Array (oRange) ) 

'"Filas"  es  un  array  anidado 
'nf  =  número  de  filas 
nf  =  UBound (Filas) 

ReDim  mM ( 0  To  nf,  0  To  nf) 

For  i  =  0  To  nf 

Fila  =  Filas (i) 

For  j  =  0  To  nf 

mM(j,i)=  Fila  (j) 

Next  j 
Next  i 

CMATRIXINVERSE=  mM 
End  Function 


En  vez  de  poner  todo  este  código,  podemos  proceder  como  en  (Ver  [34])  para  editar  de  una  manera  más  limpia  las 
funciones  que  invocan  funciones  de  OOoCalc  que  devuelven  un  array  anidado  (y  también  para  las  otras).  Se  nece¬ 
sitan  dos  funciones,  la  primera  es  calc_Func  para  llamar  la  función  de  OOo  Cale  y  la  otra  es  DataArray2PlainArray 
que  lo  que  hace  es  convertir  el  array  anidado  en  un  array  corriente  de  dimensiones  (1  to  n,  1  to  m)  .  En  el  ejemplo 
que  sigue,  primero  presentamos  una  subrutina  Test  ()  que  usa  las  funciones  implementadas  más  abajo  (las  cuales 
agregamos  a  nuestra  biblioteca  BblMatematica!). 


Programa  41  Operaciones  con  matrices  usando  las  funciones  de  OOo  Cale 

Sub  Test  () 

Dim  i, j 
Dim  mA  (2) 

mA  (0)  =  Array (1,2) 
mA(l)  =  Array  (  4,  5  ) 
mA(2)  =  Array  (  7,8) 

Dim  mB  (1) 

mB (0)  =  Array  (3,2,1) 
mB(l)  =  Array  (  6,  5,  4  ) 

Dim  mC ( ) 

'Cálculo  de  la  transpuesta  de  mA 
mC  =  CTRANSPOSE (mA) 

For  i=l  To  UBound  (mC,  2) 

For  j  =  1  To  UBound  (mC,l) 

MsgBox  mC(j,i) 
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Next  j 
Next  i 

'Cálculo  de  mA-mB 

mC=CMATRIXMULTIPLI CATION  (mA,  mB) 
For  1=1  To  UBound(mC,2) 

For  j  =  1  To  UBound(mC,l) 
MsgBox  mC(j,i) 

Next  j 
Next  i 
End  Sub 


'Función  para  llamar  la  función  'MMULT'  (multiplicación  matricial)  de  la  hoja 
Function  CMATRIXMULTIPLI CATION  (A  ()  ,  B  ()  ) 

Dim  mM  ( ) 

mM  =  calc_Func  ("MMULT" ,  Array  (A  ()  ,B  ())  ) 

DataArray2PlainArray  mM ( ) 

CMATRIXMULTIPLI CATION  =  mM 
End  Function 

'Función  para  llamar  la  función  'TRANSPOSE'  de  la  hoja 
Function  CTRANSPOSE  (A  ( )  ) 

Dim  mM  ( ) 

mM  =  calc_Func  (  " TRANSPOSE  ",  Array  (A  ())  ) 

DataArray2PlainArray  mM() 

CTRANSPOSE  =  mM 
End  Function 

'Función  para  llamar  las  funciones  de  la  hoja  via  el  servicio  ' FunctionAccess' 
Function  calc_Func  (sFunc$,  args  () ) 

Dim  oFA  As  Object 

oFA  =  createUNOService ( "com. sun . star . sheet . FunctionAccess " ) 
calc_Func  =  oFA.  callFunction  (sFunc,  args  () ) 

End  Function 

'Cambiar  array  anidado  a  array  corriente 
Sub  DataArray2PlainArray (aRows () ) 

Dim  i%,  j%,  aCols  () ,  aTmp  () 

ReDim  aTmp  (1  To  UBound  (aRows  ())  +  1 ,  1  To  UBound  (aRows  (0) )  +1) 

For  i  =  0  To  UBound  (aRows  ()  ) 
aCols  =  aRows  (i) 

For  j  =  0  To  UBound  (aCols  () ) 
aTmp  (i  +l,j  +1)  =  aCols  (j) 

Next 

Next 

aRows  ( )  =  aTmp  () 

End  Sub 
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A.6 


Bibliotecas  especiales. 


Hasta  a  hora  hemos  implementado  algunas  funciones  y  subrutinas  de  ejemplo.  En  ingeniería  y  ciencias  se  necesitan 
bibliotecas  de  funciones  espaciales:  De  análisis  de  datos,  métodos  numéricos,  etc.  La  primera  biblioteca  que  vamos  a 
implementar  es  una  biblioteca  con  funciones  y  subrutinas  generales  de  uso  frecuente.  Por  supuesto,  las  primeras  fun¬ 
ciones  que  podemos  agregar  son  las  funciones  que  ya  hemos  implementado  más  arriba.  Además  de  estas  funciones, 
necesitamos  algunas  funciones  adicionales.  Recordemos  que  este  capítulo  corresponde  al  capítulo  introductorio  de 
un  curso  de  métodos  numéricos,  así  que  que  las  nuevas  funciones  de  la  bibliotecas  irán  apareciendo  en  el  camino. 


A.6.1  Biblioteca  BblMatematica  de  funciones  de  uso  frecuente. 

Esta  biblioteca  contiene  funciones  especiales  y  funciones  misceláneas.  Lo  que  hacemos  es  abrir  un  cuaderno  nuevo, 
crear  la  biblioteca  y  luego  exportarla.  Luego  podemos  usar  este  mismo  cuaderno  o  importar  la  biblioteca.  En  todo 
caso,  antes  de  usar  las  funciones  de  la  biblioteca,  hay  que  cargarla  en  la  subrutina  Main, 


—  .  — ^ - ; — 

fí  BblMatematica  Versión  l..ods.Standard  -  OpenOffice.org  Basic 

Archivo  Editar  Ver  Herramientas  Ventana  Ayuda 

[BblMatematica_Version  l..ods]. Standard  ▼ 

Option  Explicit 
Sub  Main 

'Cargar  la  biblioteca  BblMatematica 


1  Bas icLibrar ies  .  loadLibrary  ( "BblMatematica''  ) 

End  Sub 


Function  DDNewton (X () , Y () ) 
Dim  i,  dx 


Figura  A.22  Importar  y  cargar  la  biblioteca  BblMatematica. 

Ahora,  podemos  agregar  varias  de  las  funciones  y  subrutinas  que  hemos  implementado  a  esta  biblioteca. 


Figura  A.23  Biblioteca  BblMatematica. 
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A.6.2  Algunas  funciones  especiales 

Raíces  n— ésimas.  Si  n  es  impar  y  a  <  0  usamos  la  fórmula  a =  sgn(«)  •  \a\^'n.  En  otro  caso  usamos  aí'n. 


Programa  42  Root(x,n)  con  mane] ador  de  errores. 


Function  Root  (ByVal  a  As  Double,  ByVal  n  As  Double)  As  Double 
Dim  m  As  Integer 
m  =  Int  (n)  'índice  entero 
On  Error  Goto  msgError  'Manejo  de  errores 
If  m  Mod  2  =  0  Then  'Errores  posibles:  división  por  cero  o 

Root  =  a  A  (1  /  m)  'subradical  negativo. 

Else 

Root  =  Sgn(a)  *  Abs  (a)  A  (1  /  m) 

End  If 

Exit  Function 
msgError : 

If  Err  <>  0  Then 

MsgBox  "Error  #:  "&  Err  &  Chr  (13)  &  Error  &  Chr(13)  5  "En  la  línea 
End  If 


On  Error  Goto 

End  Function 


0  ' reinicializar  las  variables  de  error, 

'  es  decir  Err,  Error  y  Erl. 


<5  Erl 


Funciones  trigonométricas  inversas.  En  OOo  Basic  tenemos  únicamente  las  funciones  cos(x),  sen  (x),  tan  (x)  y  arctan(x). 
El  resto  de  funciones  trigonométricas  se  deben  implementar  usando  éstas  o  usando  las  funciones  de  la  hoja.  Muchas 
fórmulas  se  pueden  encontrar  en  libros  de  tablas  y  fórmulas  matemáticas  como  [26]. 

ArcSen(x)  y  ArcCos(x).  Para  implementar  estas  funciones  necesitamos  una  identidad  que  las  relacione  con  arctnn(x). 
Consideremos  la  figura  (A. 24), 


Figura  A.24 


Como  sen  0  —  x  entonces  a  resen  (x)  =  arctan  ^  ^  ,  si  0  <  x  <  1.  Como  —  aresenx  =  arcsen(— x),  —  arctanx  = 

arctan(  —  x)  y  árceos x  —  tí/ 2  —  aresenx,  entonces 
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arcsen(x) 


arctan 


x/l3" 


si  —  1  <  X  <  1, 


árceos (x) 


arctan 


—x 


x/13" 


+  7t/2  si  —  1  <  X  <  1. 


Programa  43  Funciones  aresen  (x)  y  árceos  (x) 

Function  Acos (ByVal  a  As  Double)  As  Double 
If  a  =  1  Then 
Acos  =  0 

Else  If  a  =  -1  Then 
Acos  =  PI 
Else 

Acos  =  Atn(-a  /  Sqr  (-a  *  a  +  1) )  +  PI  /  2 
End  If 
End  Function 

Function  Asín (ByVal  a  As  Double)  As  Double 
If  Abs  (a)  =  1  Then 

Asin=  Sgn (a)  *  PI  /  2 

Else 

Asín  =  Atn(a  /  Sqr  (a  *  a  +  1)) 

End  If 
End  Function 


Min,  Max  Mínimo  y  máximo  de  dos  valores. 


Programa  44  Funciones  Min  y  Max 

Function  Min  (  pl,  p2  ) 

If  pl  <  p2  Then 
Min  =  pl 
Else 

Min  =  p2 
End  If 
End  Function 

Function  Max  (  pl,  p2  ) 

If  pl  >  p2  Then 
Max  =  pl 

Else 

Max  =  p2 
End  If 
End  Function 
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Random  entero  entre  nMin  y  nMax.  Rnd  ( )  devuelve  un  número  'aleatorio'  entre  0  y  1.  Para  generar  enteros  'aleatorios' 


entre  nMin  y  nMax  se  usa  la  fórmula 

Int (nMin  +  RND()  *  (nMax  -  nMin))). 

Por  ejemplo,  para  generar  enteros  aleatorios  entre  10  y  30  se  usa  Int  (10+Rnd()  *  20)  . 

Programa  45  Número  entero  aleatorio  entre  nMin  y  nMax. 

1  Function  IntRandom(  ByVal  nMin  As  Double,  ByVal  nMax  As  Double  )  As  Double 

2  IntRandom=  Int  (nMin  +  RND  ( )  *  (nMax  -  nMin)) 

3  End  Function 


Función  Gamma  y  factorial.  La  función  Gamma  se  define  como 


Una  de  las  propiedades  importantes  de  esta  función  es 


r(z  +  i)  =  zr(z) 


En  particular,  como  T(l)  —  1  entonces  T(n  +  1 )  —  n\  si  n  G  Z.  Esta  última  fórmula  no  es  adecuada  para  calcular  n\ 
puesto  que  este  caso  particular  de  la  función  P  se  puede  calcular  de  manera  más  sencilla. 


La  función  P  se  calcula  usualmente  con  la  aproximación  (Lanczos,  1964.  [?,  pág  256]), 


si  z  >  0. 


La  fórmula  también  es  válida  si  z  €  C  y  Rez  >  0.  P.  Godfrey  calculó  un  conjunto  de  14  coeficientes  a¡  con  los  cuales 
el  error  |e|  <  10”15,  suficiente  para  nuestros  cálculos  en  el  computador. 


Es  conveniente  calcular  lnP(z)  para  evitar  los  desbordamientos  tempranos  (overflow).  Sea  A  —  z  +  7  +  entonces 


z 


donde, a0  =  0.999999999999997092,  7  =  671/128  y 
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«1 

= 

57.1562356658629235 

«2 

- 

-59.5979603554754912 

«3 

= 

14.1360979747417471 

= 

-0.491913816097620199 

a5 

= 

0.339946499848118887  x  10~4 

a 6 

= 

0.465236289270485756  x  10"4 

a7 

= 

-0.983744753048795646  x  10~ 

«8 

= 

0.158088703224912494  x  10“3 

Clg 

— 

-0.210264441724104883  x  10~; 

a10 

= 

0.217439618115212643  x  10~3 

aU 

= 

-0.164318106536763890  x  10"; 

«12 

= 

0.844182239838527433  x  10-4 

«13 

= 

-0.261908384015814087  x  10~ 

«14 

= 

0.368991826595316234  x  10"5 

Programa  46  Función  ln(T(x)  (aproximación  de  Lanczos). 

Function  LnGamma  (x  As  Double) 

Dim  tmp  As  Double 
Dim  suma  As  Double 
Dim  Cf  (14) 

Dim  i 

Cf(0)  =  0.999999999999997 

Cf(l) =57. 1562356658629235 

Cf  (2) =-59. 5979603554754912 

Cf (3) =14. 13 60 979747417471 

Cf (4) =-0.491913816097620199 

Cf (5) =0 .33994 64 99848118 8 87E-4 

Cf ( 6) =0 . 465236289270485756E-4 

Cf(7) =-0 .9837 4 47 530487 9564 6E-4 

Cf (8)  =0 . 15808 8 7 0322 4 912 4 94E-3 

Cf ( 9) =-0.210264441 724104883E-3 

Cf (10) =0 .21 7 439618115212 643E-3 

Cf (ll)=-0 . 16431810 65367 638 90E-3 

Cf (12)  =0 . 844182239838527433E-4 

Cf (13) =-0 .261908384015814087E-4 

Cf (14) =0 . 368991 82659531 6234E-5 

tmp  =  x  +  5.2421875  '*  +  7  +  1/2,  7  =671/128 

tmp  = (x+0 . 5)  *Log (tmp) -tmp 

suma  =  Cf (0) 

For  i  =  1  To  14 

suma  =  suma  +  Cf (i)  /  (x  +  i) 

Next  i 

LnGamma  =  tmp+Log (2 . 5066282746310005*suma/x) 
End  Function 
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Para  calcular  usamos  Exp  (LnGamma  (x) )  con  x  <  172. 


For  i=l  To  5 

'2, 67893853470775 

MsgBox  Exp (LnGamma (i/3) ) 

' 1, 3541179394264 

Next  i 

'  1 

'0,89297951156925 

' 0, 902745292950934 

MsgBox  Exp (LnGamma (171 . 6) ) 

'  1, 58589690966708E+308 

MsgBox  Exp (LnGamma (172) ) 

' ->  "Desbordamiento" 

La  función  factorial  la  habíamos  implementado  antes. 


Programa  47  La  función  factorial. 

Function  Factorial  (n) 

Dim  i 

Dim  producto  As  Double 
producto=l 
For  i=  2  To  n 

producto  =  producto *i 
Next  i 

Factorial  =  producto 
End  Function 


Se  puede  calcular  factorial  (n)  con  1  <  n  <  171  pero  solo  es  exacta  hasta  n  —  20,  pues  20!  =  243290200817664 
(15  dígitos)  y  factorial  (20)  =2,  432  90200817  664E+018.  Para  valores  más  grandes  de  n  el  computador  recurre  a  una 
aproximación,  por  ejemplo  21!  =  5109094217170944  (16  dígitos)  mientras  que  factorial  (21)  =5,  10909421717094E+019 . 

A.6.3  Funciones  y  subrutinas  misceláneas 

Una  función  Cells.  La  acción  de  leer  y  escribir  en  una  celda  es  muy  frecuente.  Es  conveniente  tener  un  par  de  fun¬ 
ciones  para  simplificar  la  lectura  y  la  escritura. 


Programa  48  Funciones  para  celdas 

Function  Cells (txt  As  String,  Optional  numhoja) 

Dim  nh 

If  Not  IsMissing  (numhoja)  Then 
nh  =  numhoja 
Else  nh=0 
End  If 

Cells  =  ThisComponent . Sheets (nh) . getCellRangeByName (txt) 
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End  Function 

Function  CellsCF (columna,  fila,  Optional  numhoja) 

Dim  nh 

If  Not  IsMissing  (numhoja)  Then 
nh  =  numhoja 
Else  nh=0 
End  If 

CellsCF  =  thisComponent . Sheets (nh) . getCellByPosition (columna,  fila) 
End  Function 


La  función  Cells  se  puede  usar  para  leer  y  escribir  en  las  celdas  de  una  hoja  usando  el  nombre  de  la  celda.  La  hoja 
default  es  la  hoja  1.  Por  ejemplo,  para  leer  la  celda  A5  de  la  hoja  1  escribimos 

Dim  x 

x  =  Cells ( "A4 ") .Valué. 

La  función  CellsCF  se  puede  usar  para  lo  mismo  haciendo  referencia  a  la  posición  de  la  celda.  Por  ejemplo,  para 
escribir  el  valor  f  (x)  en  la  celda  B5  de  la  hoja  1,  escribimos 

CellsCF (1,4) .Value=f (x) 


Una  función  para  limpiar  un  rango  Hay  cálculos  que  llenan  un  rango.  Un  cálculo  posterior  puede  llenar  un  rango 
menor  y  causar  confusiones  entre  los  datos  nuevos  y  los  viejos.  Una  manera  de  evitar  este  problema  es  implemen- 
tando  una  subrutina  que  limpie  las  celdas  (ver  figura  A. 25). 

La  subrutina  CleanRange  (co,  fi,  nc)  limpia  un  rango  iniciando  en  la  celda  ( co,fi ).  Desde  esta  celda  baja  borrando 
nc  columnas  a  la  derecha,  hasta  que  se  encuentre  una  celda  en  blanco,  es  decir,  una  celda  con  cero  caracteres. 


~¡r\ 

B 

TI 

1 

2 

D 

1 

1  0.676701  2.0930 

-1,0340 

5,37300 

4 

1,67670  3,0930 

-0,0340 

6,37300 

5 

2,67670  4,0930 

0,9660 

7,37300 

6 

3,67670  5,0930 

8,37300 

7 

4,67670  6,0930 

9,37300 

8 

5,67670 

10,37300 

9 

6,67670 

11,37300 

10 

7,67670 

12,37300 

11 

8,67670 

13,37300 

12 

Figura  A.25  Cali  CleanRange  (1, 2, 4) . 


Programa  49  Subrutina  para  limpiar  un  rango 

' Limpia  Rango 

' cini  =  columna  en  inicia  la  limpieza 

' fini  =  fila  en  que  inicia  la  limpieza 

' nc  =  número  de  columnas  (a  la  derecha)  a  borrar  desde  cini  inclusive 
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'numhoja  es  el  número  de  hoja,  valor  default  =  0  (hoja  1). 

Sub  CleanRange (cini ,  finí ,  nc ,  Optional  numhoja) 

Dim  k,  j ,  nh,  lg 
Dim  oCell,  Hoja 

If  Not  IsMissing (numhoja)  Then 
nh  =  numhoja 
Else  nh=0 
End  If 

Hoja  =  thisComponent . Sheets  (nh) 
k=0 
Do 

'Recorremos  la  columna  cini 
OCell  =  Hoja . getCellByPosition  (cini ,  fini+k) 
lg  =  Len  (oCell .  String) 

'lg  =  0  si  la  celda  está  en  blanco 
If  lg  o  0  Then 
For  j  =  0  lo  nc 

'Borra  la  fila  "nc"  columnas  a  la  derecha 

Hoja . getCellByPosition  (cini+j ,  fini+k)  . setString  ( " " ) 

Next  j 
End  If 

k  =  k  +  1 

'Hasta  que  encuentre  la  primera  celda  en  blanco 
Loop  Until  lg=0 
End  Sub 


A.7 


Gráficos. 


El  propósito  de  esta  sección  es  desplegar  la  representación  gráfica  de  una  función  desde  una  subrutina.  Con  OOo  Ba¬ 
sic  se  puede  mostrar  datos  en  forma  de  "diagramas"  (gráficos  de  barras,  pie,  etc.),  es  decir,  se  crean  vínculos  gráficos 
con  los  datos,  en  forma  de  barras,  sectores,  líneas,  etc. 

Para  hacer  la  representación  gráfica  de  una  función  necesitamos  un  rango  con  los  algunos  pares  ordenados  (x„i//)  en 
el  gráfico  de  la  función.  Luego  estos  pares  se  interpolan  con  un  trazador  cúbico  (ver  capítulo  2).  Después  de  calcular 
este  conjunto  de  pares  ordenados,  hay  que  hacer  varias  cosas.  Primero  necesitamos  especificar  la  región  dónde  están 
los  datos  (en  la  hoja  actual),  en  términos  de  filas  y  columnas:  Fila  de  inicio,  fila  final,  columna  de  inicio,  columna 
final.  Luego  creamos  un  objeto  gráfico,  un  rectángulo,  especificando  el  largo,  el  ancho  y  la  posición  en  la  hoja  en 
términos  de  su  distancia  al  margen  izquierdo  y  al  margen  superior  de  la  hoja.  En  este  rectángulo  determina  la  posi¬ 
ción  de  nuestro  gráfico  en  la  hoja.  En  este  caso  queremos  que  cada  nuevo  gráfico  sustituya  al  anterior.  Una  vez  que 
tenemos  todos  los  elementos,  incrustamos  el  "diagrama"  e  indicamos  el  tipo  de  gráfico  (en  nuestro  caso  XYDiagram 
con  solo  líneas).  Finalmente  hacemos  algunos  ajustes  que  tienen  que  ver  tipo  y  tamaño  de  fuentes,  color  de  fondo,  etc. 

Primero  vamos  a  mostrar  el  código  y  luego  se  explica  en  detalle  las  partes  de  este  código. Para  la  implementación 
vamos  a  usar  como  referencia  la  hoja  de  la  figura  (A. 26), 

Introducción  a  los  Métodos  Muméricos..  Walter  Mora  F. 

Derechos  Reservados  ©  2016  Revista  digital  Matemática,  Educación  e  Internet,  www.tec-digital.itcr.ac.cr/revistamatematica/ 
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Figura  A.26 


El  código  completo  de  la  subrutina  Graf  i  car  ( )  es. 

Programa  50  Subrutina  para  grafícar 

Function  f (x) 

f=  x*3+x+l 
End  Function 

Sub  Gra fúcar (rango) 

Dim  Rango (0)  As  New  com. sun . star .table . CellRangeAddress 

Dim  Rectángulo  As  New  com . sun . star . awt . Rectangle 

Dim  Chart  As  Object 

Dim  oChart  As  Object 

Dim  Hoja 

Dim  a,b,xi,  n 

Hoja  =  thisComponent . Sheets  (0) 

a  =  Hoja . getCellRangeByName ( "A6 "). Valué 
b  =  Hoja . getCellRangeByName ( "B6 "). Valué 
n  =  Hoja . getCellRangeByName ( ”E6 "). Valué 

'Pares  ordenados  en  las  columnas  C,  D 
For  i=l  To  n 

xi=a+  (i-1)  *  (b-a)  /n 

'Color  de  la  fuente  en  celda:  gris  claro 

Hoja . getCellByPosition (2 , 4+i ). CharColor  =  RGB (  230,230,230  ) 
Hoja . getCellByPosition (3,  4+i) . CharColor  =  RGB (  230,230,230  ) 

Hoja . getCellByPosition (2,  4+i) .  Value=xi 
Hoja . getCellByPosition  (3,  4+i) . Value=f (xi ) 
next  i 

' Insertar  Gráfica 

'Medidas  en  centésimas  de  milímetro 
With  Rectángulo 
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.X  =  6500  'Distancia  desde  la  izquierda  de  la  hoja 

.Y  =  1000  'Distancia  desde  la  parte  superior 

.Width  =  10000  'El  ancho  del  gráfico 
.Height  =  10000  'El  alto  del  gráfico 


'Anclaje  de  los  datos 


Wlth  Rango (0) 


.Sheet  = 

. StartColumn 
. EndColumn  = 
.StartRow  = 
.EndRow  = 


0  'Hoja  1 


2  'C 

3  'D 

5  '  C6 


5+n  'C[6+n] 


End  Wlth 


Chart  =  thisComponent . Sheets ( 0 ) . Charts 
Chart . removeByName ( "Gráfico " ) 

Chart . addNewByName  ( "Gráfico  ",  Rectángulo,  Rango ( ) ,  False,  False) 
oChart  =  Chart . getByName ( "Gráfico" ). embeddedObject 

oChart . diagram  =oChart . createlnstance ( " com. sun . star . chart . XYDiagram " ) 
oChart . diagram. DataRowSource  =  com. sun . star . chart . ChartDataRowSource . COLUMNS 


'Propiedades  adicionales 


With  oChart 

'Color  de  fondo,  región  externa. 

.  getArea  ( )  . FíllBackground  =  True 
. getArea  ( )  . FillStyle  =  RGB (220,  220,  220) 

.  getArea  ().  FillColor  =  RGB  (220,  220,  220) 

'Color  de  fondo,  región  interna 
. Diagram. getWall . FillBackground  =  True 
. Diagram. getWall . FillStyle  =  RGB  (240, 240, 240) 

. Diagram. getWall . FillColor  =  RGB  (240, 240, 240) 

.  Diagram.  SplíneType  =  1  'Interpola  con  trazadores  cúbicos 
.  Diagram.  SymbolType  =-l  '  Simbolo  para  pares  ordenados  (none) 

'Ejes  y  textos 

. Diagram. HasXAxisTitle  =  True 
. Diagram . XAxisTiTle . string  =  "X" 

. Diagram. XAxisTiTle . CharHeíght  =  10 
. Diagram. XAxis . CharHeight  =  8 
.Diagram. XAxis .Marks  =  1 
' .Diagram. XAxis. StepMain  =  1 
. Diagram. XAxis . StepHelp  =  0 
. Diagram . XAxis . CharColor  =  RGB (0,0, 255) 

.Diagram. XAxis . AutoStepMain  =  False 
.Diagram. XAxis . AutoStepHelp  =  False 
.Diagram. YAxís .CharHeight  =  8 
. Diagram. YAxis . Origin=0 
' . Diagram. HasYAxisTitle  =  True 
'  .Diagram. YAxisTiTle. string  =  "" 
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80  ' .Diagram.YAxisTiTle.CharHeight  =  0 

81  .  HasMaínTitle  =  True 

82  .  Title .  string  =  "y  =  f  (x)  " 

83  .  Title  .  CharHeight  =10 

84  End  With 

85  End  Sub 


Para  calcular  los  pares  ordenados  necesitamos  la  función  /,  un  intervalo  [a,  b  y  la  cantidad  n  de  puntos  (por  default 
será  de  30).  El  código  para  el  cálculo  de  los  pares  ordenados  sería. 


For  i=l  To  n 

xi  =  a  +  ( i— 1 )  *  (b— a)  / n 

Ho ja . getCellByPosition (2, 4+i) .Value=xi 

Ho ja . getCellByPosition (3, 4+i) . Value=f (xi) 

Next  i 


Como  son  n  nodos,  dividimos  el  intervalo  \a, b  en  n  partes  iguales,  todas  de  tamaño  (b  —  a)/ n.  Luego  xq  —  a,x\  — 
a  +  (b  —  a) / n,  —  a  +  2 (b  —  a)/n,...,xn  =  b. 

Para  el  manejo  del  gráfico  usamos  cuatro  objetos. 

"Rango  ( ) "  es  un  objeto  que  tiene  soporte  para  usar  los  servicios  del  "servicio"* 1  com.  sun.  star .  table . 
CellRangeAddress,  por  tanto  podremos  tener  acceso  a  la  región  de  la  hoja  donde  están  los  pares  ordenados  (estos 
serían  los  servicios  del  "servicio"  CellRangeAddress), 


Dim  Rango (0)  As  New  com. sun. star. table. CellRangeAddress 


With  Rango (0) 

.Sheet  = 

0 

'Hoja  1 

. StartColumn 

=  2 

’C 

.EndColumn  = 

3 

'D 

.StartRow  = 

5 

'  C6 

.EndRow  = 

5+n 

' C[6+n],  después  de  n  datos 

End  With 

El  objeto  Rango  lo  inicializamos  en  0  si  solo  necesitamos  ubicar  una  matriz  de  datos,en  este  caso  los  datos  (x;,y¿).  Si  necesi¬ 
tamos  hacer  referencia  an  +  1  bloques  de  datos  en  distintas  partes  (de  la  hoja  o  en  otras  hojas),  ponemos  DimRango  (n)  y  el 
bloque  de  datos  j  se  describe  en  términos  de  hoja,  filas  y  columnas  con  Rang  ( j )  .  Sheet ,  ,  Rango  ( j )  .  EndRow.  Así,  Rango  ( ) 

"tendrá"  todos  los  datos. 


Por  ejemplo,  si  queremos  la  representación  gráfica  de  dos  funciones  /  y  y  en  el  mismo  sistema  y  si,  por  alguna  razón  los 
datos  g(x¡)  están  algo  lejos  de  las  columnas  C,D  (en  la  misma  hoja  o  otra  hoja),  entonces  podríamos  inicializar  la  matriz 

1Los  "servicios"  son  los  componentes  de  OpenOffice.  Un  "servicio"  es  algo  parecido  a  una  clase  o  un  "tipo"  en  Java.  Las  propiedades  o  métodos 
serían  los  servicios  del  "servicio".  Ver  [35]. 
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de  la  variable  Rango  en  1;  de  esta  manera,  con  Rango  (0)  indicamos  la  ubicación  de  los  datos  (x¡,i/¡)  y  con  Rango  (1)  la  ubi¬ 
cación  de  los  datos  g(xi).  Así,  el  objeto  Rango  ()  "tendrá"  tres  columnas  y  el  tipo  de  gráfico  que  elegimos  (de  'dispersión') 
representa  los  pares  ( x¡,f(xi ))  y  los  pares  (x¡,g(x¡)).  En  nuestro  chart  aparecerán  los  dos  gráficos. 


"Rectángulo"  es  un  objeto  que  tiene  soporte  para  usar  los  servicios  del  "servicio"  com.  sun .  star 
.awt.Rectangle,  por  tanto  tenemos  acceso  a  las  propiedades  (servicios)  que  nos  permite  dotar  de  dimensiones  al 
rectángulo  y  posicionarlo  en  al  hoja.  Este  rectángulo  determina  las  dimensiones  y  la  posición  de  nuestro  gráfico. 


Dim  Rectángulo  As  New  com. sun. star. awt.Rectangle 

'Medidas  en  centésimas  de  milímetro 

With  Rectángulo 

.X  =  6500  'Distancia  desde  la  izquierda  de  la  hoja 

.Y  =  1000  'Distancia  desde  la  parte  superior 

.Width  =  10000  'Ancho  del  rectángulo 
.Height  =  10000  'Altura  del  rectángulo 
End  With 


El  objeto  Chart  tiene  los  "Charts"  (gráficos)  de  la  hoja.  Usando  Chart  creamos  la  representación  gráfica  de  los  datos 
de  Rango  (0) .  La  posición  de  esta  representación  está  determinada  por  Rectángulo.  Para  hacer  todo  esto  se  usa  el 
método  addNewByName, 


Chart  =  thisComponent . Sheets (0) .Charts 

Chart . removeByName ( "Gráfico")  'Remover  gráfico  anterior 

Chart . addNewByName ( "Gráfico", Rectángulo,  Rango ( ) , False,  False) 


Los  parámetros  addNewByName  son:  "Nombre",  Rectángulo,  Rango  ( ) ,  EncabezadoColumna  y  EncabezadoFila. 
oChart  tiene  acceso  al  gráfico,  usando  el  nombre.  Desde  oChart  especificamos  algunas  propiedades 


oChart  =  Chart. getByName ("Gráfico") . embeddedOb ject 

oChart .Diagram  =oChart . createlnstance ( "com. sun . star . chart .XYDiagram" ) 
oChart . Diagram. DataRowSource  =  com. sun . star . chart . ChartDataRowSource .COLUMNS 


Ejercicios 

A.l  Implementar  una  subrutina  Graficar  (f,  a,b)  que  recibe  una  función  f  y  la  evalúa  con  la  función  Eval  (de 
nuestra  biblioteca  BblMatematica)  y  hace  la  representación  gráfica  en  [a,  b  . 
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A.8 


Modelo  de  Objetos  de  OOo. 


Esta  es  una  sección  muy  general  que  trata  de  dar  una  idea  del  manejo  interno  de  OOo.  En  Java  o  VBA  por  ejemplo, 
uno  puede  crear  clases,  luego  crear  objetos  para  accesar  las  propiedades  y  métodos  de  la  clase.  En  OOo  Basic  las  cosas 
son  algo  diferentes.  OOo  Basic  obtiene  toda  su  funcionalidad  de  componentes  "UNO"  (Universal  Network  Objects, 
objetos  de  red  universales).  Un  UNO  esta  compuesto  de  Servicios,  Interfaces  y  Propiedades. 

Un  servicio  es  un  componente  de  un  UNO.  Cada  servicio  consiste  de  una  o  más  interfaces,  las  interfaces  son  conjuntos 
de  métodos,  para  interactuar  con  los  clientes  (nuestros  programas).  Las  propiedades  son  Constantes,  Excepciones, 
Estructuras  (strucs)  y  Enumeraciones. 

Los  servicios  UNO  están  agrupados  jerárquicamente  en  módulos,  este  capítulo  todos  los  módulos  que  usamos  están 
en  un  módulo  central  com.  sun .  star . 

Por  ejemplo,  para  accesar  celdas  de  una  hoja  necesitamos  el  UNO  com .  sun .  star .  table.  Este  UNO  tiene  los  servicios 

Cell,  CellCursor,  CellRange,  etc. 

Por  ejemplo,  el  servicio  CellRange  tiene  la  interface  XCellRange  y  esta  interface  tiene  los  métodos  getCellByPosition, 
getCellRangeByName  y  getCellRangeByPosition . 

Cuando  en  una  macro  necesitamos  crear  una  instancia  de  un  servicio,  usamos  la  función  createünoService  ( )  .  Una 
vez  que  referenciamos  un  servicio,  podemos  usar  sus  métodos  y  propiedades. 

Por  ejemplo,  en  nuestra  BblMatematica  instanciamos  el  servicio  FunctionAccess  del  módulo  sheet  para  accesar  el 
método  callFunction . 


oFunction  =  createünoService ( "com. sun . star . sheet .FunctionAccess" ) 
cmax  =  oFunction . callFunction ( "MAX" , oRange) 

Todos  los  componentes  de  OpenOffice.org  se  pueden  implementar  en  cualquier  lenguaje  que  soporte  UNO's.  En  C++ 
y  Java  se  puede  implementar  componentes  UNO.  Cuando  se  instancia  un  UNO  implementado  en  Java  se  levanta  la 
máquina  virtual  de  Java  dentro  de  OpenOffice.org  para  atender  la  demanda. 

Los  componentes  UNO  no  se  pueden  implementar  con  OOo  Basic,  solo  los  manejadores  de  eventos  (Listeners). 
OpenOffice.org  Basic  es  un  lenguaje  de  Scripts  desarrollado  para  integrar  directamente  en  OpenOffice.org  pero  no 
es  la  mejor  opción  para  grandes  proyectos  aunque  combina  bien  con  otros  lenguajes  que  requieren  atajos  rápidos  y 
eficientes  en  ciertas  tareas  dentro  de  OOo. 


Apéndice  B 
Conocimientos  Previos 


B.l 


Inducción  Matemática 


Frecuentemente  vamos  a  usar  algunas  propiedades  de  las  funciones  continuas,  tanto  a  nivel  teórico  como  a  nivel  de 
cálculo.  Paralelamente  se  usan  razonamientos  que  involucran  inducción  matemática,  es  decir,  razonamientos  acerca  de 
afirmaciones  que  involucran  un  entero  n  y  que  para  probarlos  se  necesita  de  un  esquema  de  deducción  que  permita 
concluir  que  la  afirmación  es  válida  para  todo  entero  n  mayor  que  cierto  entero  inicial  n\. 


Principio  de  Inducción  Matemática. 

Sea  A(n)  una  afirmación  que  contiene  al  entero  n.  Se  puede  concluir  que  la  afirmación  A(n)  es  verdadera  para  toda 
n>n\  si  es  posible 

a. )  probar  que  A  (ni)  es  cierta 

b. )  probar  que  si  se  supone  A(k)  verdadera  para  un  k  arbitrario  pero  >  n\ ,  entonces  A (k  +  1)  es  verdadera. 


■  EJEMPLO  B.l 


Afirmación  A(n)  :  1  +  r  +  r2 


\  _  rn+l 
1  —  r 


si  para  toda  n  >  0,  y  r  una  constante  diferente  de  1. 


¿Qué  dice  esta  afirmación?.  Que  la  suma  de  las  primeras  n  +  1  potencias  de  r  se  pueden  calcular  con  una  fórmula, 
sin  necesidad  de  hacer  la  suma. 

1  —  r0+1  1  —  r 

•  Si  n  —  0,  1  =  — - =  - - =  1 

1  -  r  1  -r 


•  Si  n  —  1,  1  +  r  — 


1  -  r¿ 
1  —  r 


Si  n  —  1000,  1  +  r  +  r2  +  ■  •  •  +  r1000  = 


1001 


1  —  r 
1  —  r 


•  Si  r  =  -, 


Prueba  de  la  afirmación  A(n). 

Para  probar  que  la  afirmación  es  verdadera,  usamos  el  principio  de  inducción 

1  —  j-O+i  1  —  r 

a. )  Es  cierta  para  n  —  0  pues  1  =  — - —  - -  si  r  ^  1. 

b. )  Suponemos  que  es  verdadera  para  n  —  k 


^  _  yk-\- 1 

1  +  r  +  r2  H - 1-  r  =  — -  si  r  £  1 

1  —  r 


Ahora  probamos  que  es  cierta  para  k  +  1,  es  decir  que 


1  +  r  +  r2 


+  rfc+1  = 


2  yk-\-  2 

1  —  r 


En  efecto 
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^  _  yk+\ 

Como  1  +  r  +  r2  +  ■  ■  ■  +  rk  —  — - 

1  —  r 

^  yk-\- 1 

entonces  1  +  r  +  r2  +  •  ■  ■  +  rk  +  rk+1  —  -  +  rk+1 

1  —  r 

Y  yk-\- 1  _|_  yk-\- 1  ^Jc+2 

1  —  r 

Y  _  yk-\-2. 

1  —  r 


EJERCICIOS 

+ 1) 

B.l  Verifique  que  1  +  2  +  3  •  •  •  +  n  = - - -  para  toda  n  >  1 

_  rp+n+l 

B.2  Verifique  que  rp  +  r?+1  +  ■  ■  ■  +  rP+f!  = - - -  donde  r^l  y  Z+  son  constantes. 

B.3  Verifique  que  (1  +  h)n  >  1  +  nh,  para  n  >  1  y  h  una  constante  no  nula  pero  >  — 1. 


B.2 


Funciones  continuas.  Máximos  y  minimos  absolutos. 


En  todos  los  algoritmos  de  este  capítulo  se  supone  que  se  trabaja  con  funciones  al  menos  continuas  en  un  intervalo 
I,  es  decir  funciones  sin  "huecos"  ni  asíntotas  verticales  en  el  intervalo.  Esto  es  indispensable  para  que  nuestros  al¬ 
goritmos  de  aproximaciones  sucesivas  no  se  vean  detenidos  por  una  situación  de  estas. 

La  continuidad  es  una  propiedad  "puntual".  Una  función  es  continua  en  todo  un  intervalo  si  es  continua  en  cada  uno 
de  sus  puntos. 


Definición  B.l  (Límites.  Función  continua.)  El  símbolo  lim  f(x)  =  A  significa  que  para  todo  e  >  0  existe  un  5  >  0  tal 
que 

|  f{x)  —  A\  <  e  siempre  que  0  <  \x  —  a\  <  ó 
Una  función  f  :  R  — »  R,  se  dice  continua  en  un  punto  x  —  a  si  lim  f(x)  —  fia). 

Una  función  f  :  R  — >  R,  se  dice  continua  en  un  conjunto  I  si  f  es  continua  en  todos  los  puntos  de  I 
Las  siguientes  igualdades  son  equivalentes, 

1.  lim  f(x)  =  A. 

x — ya 
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2.  lim  f(x)  —  A  —  0. 

x — >aJ 

3.  lim  | f(x)  —  A\  —  0. 

x — >a 

4.  lim  f{a  +  h)  —  A. 


EJEMPLO  B.2 


1.  y  —  S£n^  no  es  continua  en  x  =  0  aunque  lim  sen(*)  —  1 


x — >0  X 


_  seníx)  .  r„ 

2.  y  — -  es  continua  en  [1,  j¡ 


cosí  x  —  1 ) 

3.  y  — - no  es  continua  en  x  —  1 

3  x  -1 


Las  representaciones  gráficas  se  ven  en  la  figura  siguiente 


Figura  B.l 


Conocer  la  derivada  de  una  función  /  sería  suficiente  para  decidir  si  /  es  continua  o  no.  Esto  es  así  pues  el  cálculo 
de  la  derivada  requiere  la  continuidad. 

La  continuidad  y  la  derivabilidad  en  un  punto  requieren  que  la  función  este  definida  en  un  entorno  abierto  de  éste. 
Como  nos  interesan  los  intervalos  (ya  sea  abiertos  o  cerrados),  definimos  "continuidad  por  la  derecha",  "continuidad 
por  la  izquierda",  "derivabilidad  por  la  derecha"  y  "derivabilidad  por  la  izquierda",  usando  límites  unilaterales. 

Cuando  hablamos  de  continuidad  o  derivabilidad  de  una  función  en  un  intervalo  cerrado,  en  los  extremos  del  inter¬ 
valo  se  debe  entender  que  la  derivabilidad  o  la  continuidad  es  por  "la  derecha"  o  "por  la  izquierda". 


Teorema  B.l  Si  f  es  derivable  en  un  intervalo  1  entonces  f  es  continua  en  este  intervalo. 


Por  supuesto,  el  recíproco  es  falso.  Una  función  puede  ser  continua  en  un  punto  pero  no  derivable.  Tal  es  el  caso  de 
f(x)  =  x  que  es  continua  en  x  —  0  pero  no  derivable  (la  gráfica  presenta  "un  pico"  en  x  =  0).  Por  esta  razón  en 
muchos  teoremas  se  pide  que  una  función  sea  "continua  y  derivable"  aunque  decir  que  es  "derivable"  sería  suficiente. 
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■  EJEMPLO  B.3 


O  La  función  f(x ) 


1  1 
x  —  1  x  —  2 


+  •  •  •  +  — — —  es  continua  en  IR  —  {1,2,3}  pues 

f(x)  =  _zl _ I _ 

JK)  (x-1)2  (x  —  2)2  (x  —  3)2 


está  definida  en  IR  —  {1,2,3}. 


Máximos  y  mínimos  absolutos. 


Para  analizar  el  error  cometido  en  una  aproximación  del  valor  de  una  función  /  en  un  punto,  la  teoría  establece,  en 
general,  el  error  exacto  en  términos  de  un  valor  |g(£)|  donde  se  sabe  que  £  está  en  un  intervalo  I,  pero  es  descono¬ 
cido.  En  estos  casos,  la  estimación  del  error  requiere  cambiar  |g(f)|  por  una  cota  superior  de  g  en  I.  Usualmente  la 
cota  superior  es  el  máximo  absoluto  de  |y|  en  I. 

Definición  B.2  (Máximos  y  mínimos  absolutos.)  Sea  f  una  función  definida  en  un  conjunto  I  de  mímeros  reales,  f  tiene 
un  máximo  absoluto  M  en  I  si  hay  un  punto  c\  €  I  tal  que  /(x)  <  f{c\),  V  x  G  I .  En  este  podemos  poner  M  =  f{cf). 

f  tiene  un  mínimo  absoluto  m  en  I  si  hay  un  punto  c-i  €  I  tal  que  f(x)  >  f{cf),  Vr  £  í.  En  este  podemos  poner  m  —  fjcf). 


Las  funciones  continuas  tienen  propiedades  que  requieren  como  hipótesis,  que  el  intervalo  donde  estas  propiedades 
se  cumplen  sea  cerrado. 


Teorema  B.2  (de  Weierstrass)  Si  la  función  f  es  continua  en  el  intervalo  [a,b]  entonces  f  alcanza  su  máximo  y  su  mínimo 
absoluto  en  este  intervalo 

•  Observe  que  el  máximo  absoluto  de  /,  si  existe,  puede  ser  un  máximo  relativo  o  el  valor  de  /  en  un  extremo  del 
intervalo  I 


Introducción  a  los  Métodos  Muméricos..  Walter  Mora  F. 

Derechos  Reservados  ©  2016  Revista  digital  Matemática,  Educación  e  Internet,  www.tec-digital.itcr.ac.cr/revistamatematica/ 


EJERCICIOS  269 


•  Observe  que  el  mínimo  absoluto  de  /,  si  existe,  puede  ser  un  mínimo  relativo  o  el  valor  de  /  en  un  extremo  de 
I 

•  Si  f'(x )  >  0  en  I  =  [a,b]  entonces  /  es  creciente  en  I.  En  este  caso 

m  —  f(a)  <  f(x)  <  f(b )  —  M 

•  Si  f(x)  <  0  en  I  =  [a,b]  entonces  /  es  decreciente  en  I.  En  este  caso 

M  =  f{a)  >  f{x.)  >  f(b)  —  m 

•  Si  /  es  derivable  en  I  —  [a,b\,  entonces  /  tiene  extremos  absolutos  en  I.  Si  {pi,--pn}  son  los  puntos  críticos 1  de 
f  en  I,  entonces 

m  —  Mm{/(fl),/(pi),...,/(p„),/(£i)}  <  /(x)  <  M  =  Máx{/(«),/(p1),...,/(pB),/(b)} 

•  Caso  especial:  Sea  /  es  derivable  en  I  =  [a,b],  sean  {pi,...pn}  son  los  puntos  críticos  de  /  en  I  y  |A|  = 
{|/(«)|/ \f(Pi)\>->\f(Pn)\r \f(b)\}.  Entonces: 

(a)  Si  /  cambia  de  signo  en  I, 

m—  0  <  |/(x)|  <  M—  Máx  |A| 

(b)  Si  /  no  cambia  de  signo  en  I, 

m  —  Mín  |A|  <  |/(x)|  <  M—  Máx  |A¡ 


■  EJEMPLO  B.4 

1.  Sea  f{x)  =  2x.  Sea  I  =  [1/2,4], 

Como  f  (x)  =  2  >  0  entonces  /  es  creciente  en  I.  Luego, 

l=/(l/2)  <  2x  <  /(4)  —  8 


1  p  es  punto  crítico  de  /  si  f'(p)  =  0  o  si  f  se  indefine  en  p. 
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Figura  B.4 


2.  Sea  f(x)  =  x  —  cos(4x)  —  1.  Sea  I  —  [1,2].  En  este  caso  la  función  no  es  monótona  en  I .  Debemos  comparar  los 
valores  de  /  en  los  puntos  críticos  en  I  con  los  valores  de  /  en  los  extremos  de  1 . 


puntos  críticos 
f'(x)  =  1  +  4sin(4x). 

1  +  4sm(4x)  =  0 


4x  =  arcsen(— 1/4)  +  2kn,  IgZ 
4x  =  7r  +  arcsen(— 1/4)  +  2k7i,  k  6 
_  arcsen(— 1/4)  +  2kn 


k  e 


7i  —  arcsen(— 1/4)  +  2k7i 


r  k  e 


De  todas  las  soluciones,  la  única  que  está  en  I  =  [1,2]  es 


=  ”Csen(-l/4)+2„  ^ 
4 


Figura  B.5 
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•  m  = 

Mín{/(1),/(1. 50763... 

),/( 2)}  w  {0.6536,-0.4606,1.1455} 

•  M  = 

Máx{/(1),/(1. 50763.. 

■)J(2)} 

m  « 

-0.4606 

M  « 

1.1455 

Así, -0.4606...  <  x  —  cos(4x)  —  1  <  1.1455...  en  í  =  [1,2] 


Una  teorema  que  nos  será  muy  útil  es 


Figura  B.6 


Teorema  B.3  (Acotación  para  funciones  continuas)  Sea  f  continua  en  un  intervalo  [ a,b ].  Entonces  existe  un  número  K  > 
0  tal  que  |/(x)|  <  K  para  todo  x  G  [a,b] 


■  EJEMPLO  B.5 

O  Sea  f{x)  =  -2~xln(2).  Si  I  =  [0,1], 


|/(x)|  <M  =  |/(0) |  «0.693147 
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La  existencia  de  soluciones  de  la  ecuación  f(x)  =  0  esta  basado  en  el  siguiente  teorema 


Teorema  B.4  (Teorema  del  valor  Intermedio)  Si  f  es  continua  en  [a,b]  con  f  (a)  f  (b) ,  entonces  para  cada  c  £  [/(fl),/(b)] 
existe  una  preimagen  x  —  p  en  [a,b]  tal  que  f(p)  —  c. 


Corolario  B.l  Si  f  es  continua  en  [a,b]  y  si  f(a)  y  f(b)  difieren  en  el  signo,  existe  p  e  ]a,b[  tal  que  f(p)  =  0. 


Figura  B.7 


■  EJEMPLO  B.6 

1.  La  función  f(x)  —  x3  +  x  +  1  tiene  un  cero  en  [—1,0]  pues  /(  — 1)/(0)  =  — 1  <  0 


2. 


La  función  f(x)  — - —  H - —  +  •••-( - —  tiene  un  cero  en  ]1,2[  y  otro  cero  en  ]2,3[  pues,  evaluando  en 

tX  X  X  X  o 

x  —  1.2,  x  —  1.8,  x  —  2.8  podemos  verificar  un  cambio  de  signo. 


/(1.2)  =  3.194...,  /( 1.8)  =  -4.58333...,  /( 2.2)  =  4.58333...,  /( 2.8)  =  -3.19444... 


Además  son  los  únicos  ceros,  ya  que  /  es  decreciente: 


f(x) 


-1 


1 

(^2p 


1 

(^3F 


<  0 


Otro  teorema  que  nos  será  útil  es 


Teorema  B.5  Si  f  es  continua  en  x  —  p  y  si  f(p)  ^  0,  existe  entonces  un  intervalo  ]p  —  ó,  p  +  ó[  en  el  que  f  tiene  el  mismo 
signo  que  f(p). 
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Figura  B.8 


EJERCICIOS 

B.4  Calcule  el  máximo  y  mínimo  absoluto  de  las  siguientes  funciones,  en  el  intervalo  que  se  indica 

a)  f(x)  —  ex  en  [0,2] 

b)  f{x)  —  80x3  +  12  sen(2x)  en  [1,2] 

c)  f(x)  —  |80x3  +  12sen(2x)|  en  [—2,1] 

d)  f(x)  —  j  (cos(x)  +  sen(x))  en  [—1,1]. 

— 2  +  4r2 

e)  /(x)  = - , -  en  [-1,1]. 

ex 

®  /W  =  J3T  +  ^2  +  '"  +  ¿3enl6/5'9/5] 
g)  f(x)  —  |(x2  -  1)/3|  en  [-0.5,0] 

B.5  Considere  g(x)  —  2~x. 

a)  Muestre  que  g(x)  £  [1/3,1]  si  x  £  [1/3,1] 

b)  ¿Podría  encontrar  una  constante  positiva  k  <  1  tal  que  |g'(x)  <k  Vx  £  ]1/3,1[? 

B.6  Sea  g(x)  —  (x3  —  l)/4. 

a)  Muestre  que  g(x)  £  [—1,1]  si  x  £  [—1,1] 

b)  ¿Podría  encontrar  una  constante  positiva  k  <  1  tal  que  |y'(x)|  <  k  Vx  £  [—1,1]? 

B.7  Verifique  que  /(x)  =  1  +4sen(4x)  tiene  un  cero  en  [1,2]. 

B.8  Verifique  que  /(x)  =  x3  +  x  +  1  tiene  solamente  un  cero  en  IR. 

B.9  Si  /(x)  =  —  tan(x  +  zr/10),  determine  los  extremos  absolutos  de  |/'(x)|  en  [—1,1] 

B.10  Considere  g(x)  —1/2  (sen(x)  +  cos(x)) .  Calculando  el  máximo  y  el  mínimo  absoluto  de  g  en  [0,1],  verifique 
que 

0.270151...  <  g(x)  <  0.920735...  en  [0,1]. 

-0.150584...  <  y'(x)  <  0.5  en  ]0,1[. 

B.ll  Sea  g(x)  —  (x2  —  l)/3.  Verifique  que 

0<g(x)<— 1/3  si  x  G  [-1,1] 

|g'(x)|  <  2/3  si  x  £  [-1,1] 


B.12  Sea  /(x)  =  lnx.  Verifique  que  si  £  £  [l,e]. 
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/"(£) 

2 


(x  —  l)(x 


e)  <  \ \(x-l)(x-e)\ 


B.13  Considere  ETn,  ESn  y  EGn  definidas  de  la  siguiente  manera: 
=  •/"(£),  con 

ESn=  /(4)(g),  con  £€]«,&[, 

eg" = c” 

a)  Si  /(x)  =  senx  y  a  =  0,  b  —  1,  n  —  10;  estimar  |ETiq|  y 

b)  Si  /(x)  =  e~x  y  a  —  0,  b  —  1,  n  —  3;  estimar  | EG3 1 


B.3 


Teorema  de  Taylor 


El  teorema  de  Taylor  no  dice  que  si  tenemos  dos  números  oí  y  u  en  un  intervalo  1,  y  si  una  función  fe  s  n  +  1 
veces  derivable  en  f,  entonces  /(a)  se  puede  aproximar  con  un  polinomio  Pn(x)  de  grado  n  para  el  que  Pn(u)  —  0. 
Además  podemos  estimar  el  error  cometido  usando  una  cota  superior  de  f(n+1l  entre  a.  y  u.  Adicionalmente,  si  a 
es  desconocida  y  se  sabe  que  f{o¿)  —  0  entonces  podemos  obtener  una  aproximación  de  a . 


Teorema  B.6  (Teorema  de  Taylor  con  forma  diferencial  del  resto)  Supongamos  que  f  es  una  función  con  derivadas  con¬ 
tinuas  hasta  el  orden  n  +  1  en  un  intervalo  I  Dados  oc,  u  €  I,  existe  £,  en  el  intervalo  cerrado  con  extremos  u  y  a,  tal  que 


/(«)  =  /(»)  +/'(«)(«-  U)  +  -  u)2  + 


ni 


( n  + 1)! 


Figura  B.9 
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Pn(x)  =/(«)  +/'(«)(*  -  «)  +  ^r~(x  ~  ")2  +  ' 

dor  de  x  —  u. 


- - j — -  (x  —  u)n  es  el  polinomio  de  Taylor  de  orden  n  alrede- 


n\ 


(a  ~  “)("+1)  es  el  rest0- 

(«  +  !)!  v  ' 


f{n+1)(0¡ 


Se  puede  escribir  f(cc)  ~  P„(a)  con  error  — — +  ^  (ce  —  u)n+  ,  con  £  entre  u  y  cc. 

Como  en  general  £  es  un  número  desconocido,  es  útil  observar  que  si  /('"+  1 )  (x)  <  M  en  un  intervalo  que 
contenga  a  a.  y  a  »,  entonces  podemos  obtener  estimación  del  resto 


/(n+1)(g) 

(n  + 1)! 


(a 


< 


M 

(n  + 1)! 


(a 


») 


7Z  +  1 


Observe  que  si  u  está  suficientemente  cercano  a  a  o  si  n  es  suficientemente  grande,  entonces  el  resto  podría  ser 
despreciable. 


■  EJEMPLO  B.7 

1.  Como  f(x)  =  ex  y  todas  sus  derivadas  son  continuas  en  todo  IR,  entonces  podemos  aproximar  e~  con  un  poli¬ 
nomio  d  Taylor  de  grado  10  alrededor  de  u  =  0.  En  este  caso,  a  =  2  y 

e2  -  /(O)  +  /'( 0)(2  -  0)  +  ^(2  -  O)2  +  ■  ■  ■  +  2  -  0 )"  +  ^  (2  -  0)”+1 

=  1+2+  —  +  •••  +  —  +  ^  2"+1  con  £  entre  0  y  2 

2  n!  (n  +  1)!  2 

o2  jn  p2yn+l 

<  1+2+Y  +  ---+n7+  (n  +  1)!  Pues  f{n+1)(u)=ell<e2  en  [0,2], 

22  210  e22n 

En  particular,  e2fül+2-|-  —  +  ■••  +  —  —  7.3889...  con  error  <  ,  ^  =  0.000379... 

2.  Sea  Q(x)  —  a0  +  a-px  +  •  •  •  +  anxn  con  an  ^  0.  Como  Q^,!+P  (x)  =  0  entonces  el  polinomio  de  Taylor  Pn  (x)  es 
idéntico  a  Q(x)  (pues  el  resto  es  0). 

3.  Podemos  aproximar  cos(l)  con  el  polinomio  de  Taylor  para  cos(x),  de  orden  n  —  3,  alrededor  de  n  =  zr/2  w 
1.57079. 

Como  P3 (x)  =  —  (x  —  n/2)  +  g(x—  zr/2)3  entonces  cos(l)  ft¿P3(l)  =0.5398...  con  error 
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cos(£)(l  —  n/ 2)4 

< 

1  ■  (1  -  tt/2)4 

4! 

4! 

0.00442... 


pues  |cos(x)|  <  1  V  x. 


4.  Si  a  es  un  cero  de  /(x)  =  1  +  4sen(4x)  en  [1,2]  entonces  si  u  E  [1/2],  podemos  escribir 


/"(£), 


/(*)  =  0  =  f(u)  +  f  (u)  {oí  -  u)  +  J-^  ( ct-u )2 


de  donde,  despejando  a  (del  factor  lineal)  obtenemos 


f'(u )  2/'(m)  *  ^ 

Si  el  resto  es  despreciable  (es  decir,  si  u  está  suficientemente  cercano  a  a:  ),  entonces 


OíttU  — 


/(») 

/» 


Por  ejemplo,  si  u  =  1.5  entonces  a  ~  1.50765892743399... 


Un  caso  especial  del  teorema  de  Taylor  el  el  teorema  del  valor  medio  para  derivadas 


Teorema  B.7  (Teorema  del  valor  medio  para  derivadas)  Si  f  es  continua  y  derivable  en  [a,  b]  entonces  existe  f  £]a,b[  tal 
que 

f{b)-f{a)_ 
b-a  J 
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B.14  Calcule  n  tal  que  Pn  (1  j  aproxime  cos(l)  con  un  error  estimado  <0.0000005. 

B.15  Calcule  el  Polinomio  de  Taylor  P^(x) ,  alrededor  de  u  —  0,  para  Q(x)  —  x3  —  x  +  1 

B.16  Calcule  el  Polinomio  de  Taylor  P3(x),  alrededor  de  u  —  n/1,  para  Q(x)  =  x3  —  x  +  1  y  verifique  que  Psfx)  = 

Qto 

B.17  Aproxime  el  único  cero  de  /(x)  =  x3  +  x  +  1  en  [—1,0],  usando  P2ÍX)  alrededor  de  u  —  —0.5  (la  solución  con 
doce  decimales  exactos  es  —0.682327803828...  ). 
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6.4 


Notación  O  de  Landau 


Es  muy  adecuado  recurrir  a  algunas  funciones  cuyo  comportamiento  es  muy  familiar,  para  compararlas  con  expre¬ 
siones  más  complejas  en  un  entorno  de  xq  o  en  el  infinito.  Nos  interesa  saber  si  una  función  /  es  tan  "rápida"  como 

/ 


g  analizando  si  el  cociente 


g 


permanece  acotado  en  un  entorno  dado. 


Definición  B.3  Decimos  que  f  €  O(g)  conforme  x  — »  oo  si  existe  M  y  K  >  0  tal  que 


\f(x)\  <  fC|g(x)|  para  todo  x  >  M. 

f  e  0(g)  conforme  x  — xq  si  existe  S  >  0  y  K  >  0  tal  que 

|/0)|  <  K\g(x)\  con  |x-xo|<¿ 

/  €  o(g)  conforme  x  — >  xq,  si 


lim  ¿M=0 

g(x) 


EJEMPLO  B.8 

n2  —  1 

1.  xn  —  ~ 


n2  -  1  1 

G  0(l/n)  conforme  n  — >  oo  ya  que  3 —  <  —  para  todo  n  >  1. 


2.  Si  /  £  o(l)  entonces  lim  f(x)  =  0 

X  >Xq 


Abusando  del  lenguaje  escribimos  lim  o(l)=0 

X - >Xq 


f(n+ 1) 

3.  Como  ^  (x  —  x0)n+1  €  o((x  —  xg)n)  cuando  x 


xq,  se  puede  escribir 


/O)  =/Oo)  +  /'(«) 0  -  xo)  +  ^  21°)  ( x  -  xo)2  +  ■  ■  ■  +  -  „[X°\X  -  xo)n  +  o((x-  xo)n) 


ni 


r(n+l)/x\ 

4.  Como  ^  '  0  —  xo)n+1  C  O  ^0  —  x0),I+1J  cuando  x  — »  x0/  se  puede  escribir 


/O)  =/(*o)  +/'0)0  -  *o)  +  -  ^  0  -  *o)2  +  •  ■ 


+  -^^o-*°r  +  o((x-x0)’,+i) 
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5.  Algunos  desarrollos  limitados  conforme  x  — >  0 

(a)  \n{x +  \)  —  x  —  x2 /2  +  o(x2) 

(b)  ln(x  +  1)  =  x  +  o(x) 

(c)  tan (x)—x  +  o(x2) 

(d)  tan(x)  =  x  +  o(x  )  (solo  cambia  de  o{x2)  a  o(x) ) 

(e)  sen(x)  =  x  +  o(x) 

(f)  x  =  x  +  o(x )  (igual  que  la  de  seno!) 

B.4.1  Propiedades  de  o(g) .  Cálculo  de  límites. 

El  teorema  de  Taylor  nos  permite  aproximar  funciones  complicadas  con  polinomios.  Puesto  que  es  fácil  operar  con 
polinomios,  esto  puede  ayudar  a  simplificar  algunas  expresiones  complicadas  que  aparecen  en  el  cálculo  de  límites, 
por  ejemplo.  Solo  necesitamos  conocer  la  manera  de  operar  con  expresiones  'del  tipo  o(g)'. 

Propiedades  de  o(g) 

•  o(g)±o(g)  =  o(g) 

•  k-o{g)  =  o(g),k¿  0. 

•  f-o(g)=o(fg) 

•  o(g)n  =  o{g¡n) 


Usando  estas  propiedades  podemos  calcular  límites  operando  con  expansiones  de  Taylor.  Primero  se  hace  una  sim¬ 
plificación  de  una  parte  de  la  expresión,  usando  desarrollos  limitados,  y  luego  para  las  otras  partes  de  la  expresión  se 
busca  un  desarrollo  limitado  adecuado  para  obtener  la  simplificación  de  la  expresión.  Observe  que  para  una  función 
dada,  se  pueden  usar  distintos  desarrollos  limitados. 


■  EJEMPLO  B.9 


1. 


Vamos  a  calcular 


tan(x)  —  lníx  + 1) 

Jim  - 

x — tan(x)ln(x  + 1) 


usando  los  desarrollos  limitados  adecuados. 
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tan(x)  —  lníx  +  1) 
lim  - - 

x — >0  tan(x)ln(x  +  1) 


lilTL 

x — >0 


lim 


x  +  o(x2)  —  (x  —  x2/2  +  o(x2)) 
tan(x)  ln(x  + 1) 

x2/2  +  o(x2) 


x — >-0  (x  +  o(x))(x  +  o(x)) 
x2/2  +  o(x2) 


lim 


X — > o  x2(l  +  o(l))(l  +  0(1)) 


r  1/2  +  o(l) 

x  (1  +  o(l)) (1  +  o(l)) 


—  1/2 


sen(x)  x 

2.  lim  - —  =  lim 


ox + o(x) 


=  1 
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Calcular  los  siguientes  límites  usando  desarrollos  limitados 


B.18  lim 


B.19  lim 


x — >o  sen(x) 

ln(x  +  1) 


a- — > 0  x  +  tan(x) 


B.5 


Sucesiones 


Definición  B.4  Una  sucesión  x0,x\,...,Xk,  ■  ■  ■ ,  denotada  {x,¡}“=0  o  simplemente  x„,  es  una  función  x  :  N  — >  R. 


Figura  B.10 
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Notación:  Se  acostumbra  escribir  “xn"  en  vez  de  la  notación  funcional  x(n)  y,  abusando  del  lenguaje,  se  dice  "la 
sucesión  xn” . 

Una  sucesión  puede  ser  definida  por  una  relación  de  recurrencia  cuando  se  conocen  uno  o  varios  valores  iniciales  y 
una  relación  entre  xn  y  uno  o  más  términos  anteriores. 


■  EJEMPLO  B.10 


1.  Xn 


(-1)”  +  1 
2 


n>  0. 


En  este  caso  los  primeros  términos  de  la  sucesión  son 


1,0, 1,0, 1,0,1,-  ■  ■ 


2.  (Relación  de  recurrencia),  xq  —  1,  xn  —  0.5  (  xn-\  H - j ,  A  >  0. 

xn—\ , 


En  este  caso,  si  A  —  2,  los  primeros  términos  de  la  sucesión  (usando  5  dígitos  de  precisión)  son 


1, 1.5000, 1.4167, 1.4142, 1.4142, 1.4142  ,-  •  • 


f  (  X  1 

3.  (Relación  de  recurrencia).  x0  —  1,  xn  —  x„_i  —  0-1  [ 

f'(xn- 1) 

En  este  caso,  si  f{x)  ~  x2  —  2,  los  primeros  términos  de  la  sucesión  (usando  5  dígitos  de  precisión)  son 


1, 1.5000, 1.4167, 1.4142, 1.4142, 1.4142  ,-  ■  ■ 


EJERCICIOS 

B.20  Dé  el  término  general  xn  de  la  sucesión  — 1,1,— 1,1,— 1,... 
B.21  Verifique  que  si  f(x)  =  x2  —  A,  la  sucesión  definida  por 


x  l  x  —x  f{xn—l ) 

JLQ  —  1,  Xn  —  .  , 

f  \xn—l) 


es  equivalente  a  xq  —  1,  xn  —  0.5  (  x„_i 


xn— 1 
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B.22  Sea  x„  = 

2 


1 

2 


.  Verifique,  usando  inducción  matemática,  que  xn 


Xo 
2  n 


n 


+  E 


i 

¥ 


Definición  B.5  (Límite)  Decimos  que  la  sucesión  xn  tiene  límite  L,  lo  que  se  escribe 


lim  xn  =L 

n— >oo 


si  para  cualquier  e  >  0  existe  un  número  natural  N  tal  que  si  n>N  entonces  \xn  —  L\  <e 


Figura  B.ll 


Como  muchas  veces  tratamos  con  valores  absolutos  y  con  términos  de  sucesiones  tales  como  xn+i,  el  siguiente  teo¬ 
rema  es  muy  útil 


Teorema  B.8  Si  lim  \xn  —  L  \  —  0  entonces  lim  x„  —  L 

n— >oo  n— feo 


Si  k  es  un  entero  positivo  y  si  lim  \xn  —  L\  —  0  entonces  lim  x„+j-  =  L 

n— >oo  n — ^oo 


El  cálculo  del  límite  de  una  sucesión  (si  existe),  se  puede  hacer  usando  las  mismas  técnicas  usadas  para  el  cálculo  del 
límite  de  una  función. 


Teorema  B.9  (Cálculo  de  Límites)  Si  lim/(x)  —  L  y  si  f  está  definida  en  Z+,  entonces 

x — yoo~' 


lim  fin)  —  L 

íi->oo' 


Las  sucesiones  convergentes  permanecen  acotadas  pero  las  sucesiones  acotadas  no  siempre  convergen,  solo  las  suce¬ 
siones  monótonas  (siempre  crecientes  o  siempre  decrecientes)  acotadas,  convergen. 

Además,  si  una  sucesión  converge,  la  distancia  entre  sus  términos  se  hace  pequeña,  tanto  como  se  quiera,  a  partir  de 
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un  subíndice  N. 


Teorema  B.10  Si  la  sucesión  xn  es  una  sucesión  monótona  acotada,  xn  converge. 

Si  la  sucesión  xn  es  convergente,  xn  es  acotada. 

Si  la  sucesión  xn  es  convergente,  dado  cualquier  e  >  0,  existe  un  natural  N  tal  que  \xn  —  x„+i|  <  e  Vara  t°d°  n>N. 


■  EJEMPLOB.il 

Sea  xq  =  O  y  =  \Jxn  +  2.  La  sucesión  xn  converge  por  ser  monótona  y  acotada.  Veamos 
i.  xn  es  creciente,  es  decir  xn+i  >  xn  para  toda  n.  En  efecto,  procediendo  por  inducción 


(a)  xi  =  a/2  >  xq 

(b)  Supongamos  que  xn  >  xn_  \ 

Xn  ^  %n— 1 

xn  +  2  >  xn_\  +  2 

\Jxn  +  2  >  \]xn_\  +  2,  pues  y  —  \fx  es  creciente. 

Xn+1  —  Xn 

ii.  Usando  inducción  podemos  verificar  xn  está  acotada  por  2,  es  decir  Xn<  2  para  toda  n.  En  efecto, 

(a)  x0  <  2 

(b)  Supongamos  que  xn  <  2 


Xn 

< 

2 

Xn  +  2 

< 

4 

v^ií  +  2 

< 

V4 

■^72+1 

< 

2 

■  EJEMPLO  B.12 

1.  lim  (1/2)”  =  O  pues  lim(l/2)J=0. 

72— >-00  X— >00 

2.  Si  xq  =  1  y  x„+i  —  ¿  x„  entonces  lim  xn  —  O  pues 


■^72+1  —  2  — 


2 

^72—1  —  ’  ’  ’ 


*0 
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3.  A  veces  debemos  usar  la  definición  de  límite  de  una  sucesión  para  comprobar  algún  resultado. 

Esta  definición  dice  que  el  límite  de  la  sucesión  es  L  si  la  distancia  entre  xn  y  L  ( o  sea  |  xn  —  L  | )  se  puede  hacer 
tan  pequeña  como  queramos  a  partir  de  un  subíndice  k  en  adelante. 

Podemos  mostrar  que  lim  (1/2)”  =  0  usando  la  definición,  de  la  siguiente  manera: 

n—>oo  c 


9  Habría  que  verificar  que  dado  un  número  e  >  0  tan  pequeño  como  queramos,  siempre  es  posible  encon¬ 
trar  un  subíndice  k  a  partir  del  cual  \xk  —  0|  <  e.  En  este  caso  el  razonamiento  es  sencillo,  a  partir  de  la 
desigualdad  \xk  —  0|  <  e,  buscamos  el  "k"  a  partir  del  cual  esta  afirmación  se  cumple. 


\xk  -  0| 
|(l/2)fc  —  0| 
(1/2)*' 
fcln(l/2) 


<  e 

<  e 

<  e,  pues  (1/2)*  >  0 

<  ln(e) 


k  > 


ln(£) 

ln(l/2) ' 


pues  ln(l/2)  <  0 


Esto  demuestra  que  siempre  hay  un  subíndice  k  a  partir  del  cual  la  distancia  de  ( 1  /  2  ) *  a  0  es  tan  pequeña 
como  queramos. 


Por  ejemplo  si  e  —  1.0  x  10  17  entonces 

k 

El  siguiente  teorema,  conocido  de  manera  coloquial  como  teorema  del  sándwich  o  teorema  del  emparedado,  es  muy  útil 
para  decidir  algunos  resultados  sobre  sucesiones. 


2)k  -  0|  <  1.0  x  10”17  si 
iíl.0xl0~17j  ..... 


Teorema  B.ll  (Teorema  de  intercalación)  Si  existe  un  entero  N  >  0  tal  que  an  <  xn  <bn,  V  n  >  N ,  y  si  el  límite  de  las 
sucesiones  an  y  bn  existe  cuando  n  — >  oo,  entonces  si 


lim  an  —  L  —  lim  b,¡ 


también  lim  xn  —  L 


El  teorema  dice  no  solo  que  el  límite  de  xn  existe,  también  que  es  igual  a  L.  En  los  siguientes  ejemplos  vamos  a  ver 
una  aplicaciones  de  carácter  teórico  que  aparecen  en  algunos  razonamientos  que  están  mas  adelante. 
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EJEMPLO  B.13 


1.  Si  \xn  —  L\  <  K  (  -  )  ,  V  n  >  N  entonces 


0  <  Xn-L  I  <  K  - 


1\" 


es  decir,  \xn  —  L\  está  entre  las  sucesiones  a„  =  0  y  bn  —  K  ^  -  )  ,  V  n  >  N.  Ahora,  como  lim  0  —  0 
fl\n 

lim  K  I  -  I  ,  se  concluye 


lim  I  xn  —  L I  =  0  o  también  lim  xn  —  L 

n — >oo  n — ^oo 


,  ,  M 

2.  Supongamos  que  \xn  —  L\  <  — ,  V  n  >  N  (  con  N  e  N,M  €  IR)  entonces 


„  ,  i  M 

0  <  \xn  —  L  <  — 
n 


M  M 

es  decir,  \xn  —  L I  está  entre  las  sucesiones  an  —  0  y  b„  —  — ,  Y  n  >  N.  Ahora,  como  lim  0  =  0=  lim  — , 

Yl  n — ^oo  n — >oo  yi 

se  concluye 


lim  \xn  —  L\  =  0  o  también  lim  xn  =  L 

n — S>oo  n — >oo 
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B.23  Calcule  lim  co^'ll 

n — too  Yl 


í  1\" 

B.24  Verifique  que  lim  1 H —  =  e 

n — too  y  n  ) 

B.25  Si  0  <  a  <  1,  >  0  y  \en I  <  calcule  lim  \en 


B.26  Suponga  que  0  <  a  <  1,  eo>Oy  len+i  |  <  ocen  para  toda  n  >  1.  Verifique  que  lim  \en  \  =  0 


B.27  Calcule  lim  xn  si  xn  —  1  + 

n — >oo  2  2 

B.28  ( * )  Sea  i'o  =  0  y  xn+\  =  \J xn  +  2.  Verifique  que  la  sucesión  converge  y  que  lim  xn  =  2. 

B.29  (*)  Verifique  que  lim  xn  =  2  si  x-¡  =  \¡2  y  xn  =  J2xn_\. 

n — tco 
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B.30  Verifique  que  la  sucesión  a\  —  \/l,  (12  —  \/2^2,  a?,  —  es  convergente. 

Solución:  Procedemos  por  inducción.  Observe  que  an  =  \/2 ""  1 ,  n  =  2,3,...  entonces  como  la  exponencial  ax  ( a  >  1) 
es  creciente,  se  tiene 

i.)  an  es  creciente.  En  efecto,  a 2  >  a\  pues  >  y/2.  Además  si  an  >  1  entonces  an+ \  —  \f2a"  >  -\/2  1  —  a„ 


V2 


ii.)  an  <  2,  n  —  1,2,... .  En  efecto,  a\  —  \/l  <  2.  Además  si  an  <  2  entonces  an+ \  =  \j2a"  <  \[2  —  2. 


B.6  Teorema  del  valor  medio  para  integrales 


fxi+l 

Sien  [xí,Xí+ 1]  G  es  continua  y  cp  integrable  y  de  un  mismo  signo,  entonces  existe  e¿  g]x¡,x¿+i[  tal  que  /  G(x)(p(x)  dx 

J  Xj 


G(£í)  í  cp(x)  dx. 

Ja 


EJEMPLO  B.14 

[x  —  a)  (x  —  b)  es  integrable  (y  de  primitiva  conocida)  y  de  un  mismo  signo  en  a,b\  (negativa),  entonces: 

„3  ( b  —  a)3 


f° ,  \ ,  , ,  x3  ,  £3  (b  -  a)°  .  ,  r 

/  (x  —  a)(x  —  b)e  ax  —  —e  1 - -  coneG  «,»  . 

Ja  6 
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Apéndice  C 
Bits  y  Bytes 


La  memoria  del  computador  está  formada  por  una  gran  cantidad  de  bytes  y 
bit  puede  almacenar  un  1  o  un  0. 

Un  bit  (binary  digit)  se  refiere  a  un  dígito  en  el  sistema  numérico  en  base  2. 
de  8  bits  de  largo 

Un  byte  es  una  colección  de  bits.  Actualmente  un  byte  son  8  bits. 

Una  palabra  (word)  es  un  grupo  de  bits.  El  tamaño  de  palabra  típico  puede  ser  32  o  64  bits,  etc. 

Cuando  se  habla  de  capacidad  de  almacenamiento,  se  acostumbra  llamar  kilobit  (kb)  a  210  =  1024  bits,  megabit  (mb) 
a  220  =  1024  kb,  gigabit  (gb)  a  1024  mb  y  terabit  (tb)  a  240  bits. 


cada  byte  está  constituido  por  8  bits.  Un 
Por  ejemplo  (10010111)2  es  un  número 


9  Una  variable  entera  (int)  está  formada  por  4  bytes,  es  decir  32  bits.  Estos  32  bits  representan  el  valor  almacenado 
por  esa  variable  en  binario. 


9  Si  una  variable  tipo  int  almacena  el  número  5  =  1  *  22  +  0  *  21  +  1  *  2o,  su  representación  en  memoria  sería 
algo  como 

0000  0000  0000  0000  0000  0000  00000101 
ler  byte  2do  byte  3er  byte  4to  byte 

9  Como  tenemos  32  bytes,  las  variables  int  solo  pueden  almacenar  enteros  entre  10 . . .  0000000  =  — 231  (el  —0  no 
cuenta)  y  231  —  1  =  (01 . . .  1111111)2 

9  Las  variables  long  usan  64  bits  y  almacenan  enteros  entre  —  263  y  263  —  1. 
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Apéndice  D 

¿Porqué  1.0000000...  =  0.999999...  ? 


Tal  vez,  la  mejor  manera  de  tratar  este  detalle  es  indicar  que  es  un  convenio.  Aún  así  se  puede  verificar  su  consistencia 
con  la  teoría  de  varias  maneras,  unas  más  rigurosas  que  otras. 

Los  números  racionales  son  insuficientes  para  hacer  mediciones  en  el  mundo  real.  Un  ejemplo  clásico  es  el  triángulo 
rectángulo  con  catetos  de  medida  1.  La  hipotenusa  medirá  \f2,  que  no  es  un  número  racional.  Los  números  reales 
son  una  completación  de  los  números  racionales.  Muchos  números  que  usamos  de  manera  natural  como  e, í,l'4142,e'Ú, 
etc.,  solo  tienen  significado  como  límites  de  una  sucesión  de  números  racionales.  Por  ejemplo,  \/2  es  el  límite  de  la 
sucesión  de  números  racionales 


1,  1.4,  1.41,  1.414,  1.4142,  ... 

Los  números  reales  pueden  ser  definidos  (construidos)  como  límites  de  sucesiones  (de  Cauchy)  de  números  racionales. 
Una  sucesión  x„  se  dice  que  es  una  sucesión  de  Cauchy  si  para  cualquier  e  >  0  siempre  se  puede  encontrar  un  N  a 
partir  del  cual  \xn  —  x„,  <  e  para  todo  n,m  >  N  (o  sea,  los  términos  de  la  sucesión  están  tan  cerca  como  se  quiera 
a  partir  de  algún  N).  Dos  sucesiones  de  Cauchy  x„,yn  son  equivalentes  si  (xn  —  yn)  tiene  límite  0.  Esto  define  una 
relación  de  equivalencia.  Una  sucesión  xn  representa  a  todas  las  sucesiones  equivalentes  a  ella.  En  particular,  el  número 
real  0.99999...  es  el  límite  de  la  sucesión  (de  Cauchy) 

0,  0.9,  0.99,  0.999,  0.9999,  ... 


que  es  equivalente  a  la  sucesión  de  Cauchy 


1,  1.0,  1.00,  1.000,  1.0000,  ... 


que  tiene  como  límite  el  número  real  1.  Como  ambas  sucesiones  son  equivalentes,  representan  el  mismo  número 


real.  O  sea,  0.9999...  =  1. 

Como  un  ejemplo  de  consistencia,  observe  que  como  ar  +  ar2  q - 


ar 

1  —  r 


si  \r\  <1,  entonces 


°-9999-  =  9  (4) 


=  1 
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Apéndice  E 

Programación  Visual  Basic  (VBA)  para  Excel 


Prof.  Walter  Mora  F„ 

Prof.  José  Luis  Espinoza  B. 

Escuela  de  Matemática 
Instituto  Tecnológico  de  Costa  Rica. 


E.l 


Introducción 


Microsof  Excel®  es  un  software  para  el  manejo  de  hojas  electrónicas  agrupadas  en  libros  para  cálculos  de  casi  cualquier 
índole.  Entre  muchas  otras  aplicaciones,  Excel  se  utiliza  para  modelar  un  sinnúmero  de  aplicaciones  a  la  Ingeniería, 
en  el  tratamiento  estadístico  de  datos,  así  como  para  la  presentación  gráfica  de  los  mismos.  La  hoja  electrónica  Ex¬ 
cel  es  ampliamente  conocida  por  profesionales  y  estudiantes  en  proceso  de  formación,  pero  hay  una  gran  canti¬ 
dad  de  usuarios  que  no  conocen  a  profundidad  su  gran  potencial  y  adaptabilidad  a  10  .os  diferentes  campos  del 
conocimiento. 

Para  científicos  e  ingenieros,  el  Excel  constituye  una  herramienta  computacional  muy  poderosa.  También  tiene  gran 
utilidad  en  la  enseñanza  de  las  ciencias  y  la  Ingeniería,  particularmente,  en  la  enseñanza  de  los  métodos  numéricos. 
Pese  a  que  existen  en  el  mercado  programas  computacionales  muy  sofisticados,  tales  como  MATLAB,  MATHEMAT- 
ICA,  etc.,  no  están  tan  disponibles  como  Excel,  que  usualmente  forma  parte  del  paquete  básico  de  software  instalado 
en  las  computadoras  que  funcionan  bajo  el  sistema  Windows®  de  Microsoft. 


A  continuación  se  brinda  al  lector  una  breve  introducción  a  algunas  actividades  de  programación  con  macros  es¬ 
critos  en  VBA  (una  adaptación  de  Visual  Basic  para  Office  de  Microsoft),  definidos  desde  una  hoja  electrónica  de 
Excel.  Salvo  pequeñas  diferencias,  el  material  puede  ser  desarrollado  en  cualquier  versión. 

La  hoja  electrónica  servirá  tanto  como  medio  de  entrada  entrada  de  datos  a  los  programas,  como  de  salida  o  de¬ 
spliegue  de  resultados. 


E.2 


Evaluación  de  funciones 


E.2.1  Funciones  definidas  por  el  usuario 

A  manera  de  ejemplo,  vamos  a  evaluar  la  función 


,,  ,  _  r,  ,  ,  ,  cos(x)  ,  , 

f(x)  —  2xó  +  ln(x) - —  +  sen(x) 


1.  Como  al  evaluar  f(x)  se  debe  recurrir  a  varias  funciones  básicas  que  se  invocan  desde  Excel,  se  puede  tener 
acceso  a  su  sintaxis,  pulsando  el  icono  fx  y  seleccionar  "Matemáticas  y  Trigonométricas". 


1  }  ¡ffh yo  fcdoon  Vw  |ntan«  fnnMto  Uiwa—rto  batos  *«*«»  l 


»  u 


V  %  f 


Icoao  par  ver  la  sinlaxé  » 
de  es  lor iisilas 

m  H 


-ISKP  -|  X  ■/  ■ 


«1*1*1 

-  o  ? 


Él 

m 

100% 

▼ 

©  ”j 

Arial 


10 


D 


N  X  S 


p 

Pegar  función 

|  Categoría  de  la  Punción: 

Nombre  de  la  función: 

Todas 

REDONDEAR 

Financieras 

REDONDEAR.  MAS 

Fecha  y  hora 

REDONDEAR .  MENOS 

Matemáticas  y  trigonométricas  1 

RESIDUO 

Estadísticas 

SENO 

Búsqueda  y  referencia 

SENOH 

Base  de  datos 

SIGNO  , 

Texto 

SUBTOTALES 

Lógicas 

SUMA 

Información  — 

SUMA.  CU  ADR  ADOS  . 

Definidas  por  usuario 

SUMAPRODUCTO 

SENO(número) 

2.  Para  escribir  una  fórmula,  seleccionamos  una  celda  para  escribir  el  valor  a  ser  evaluado;  por  ejemplo,  podemos 
digitar  el  valor  1.1  en  la  celda  B3. 

29 
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PROGRAMACIÓN  VISUAL  BASIC  (VBA)  PARA  EXCEL 


3.  Ahora  en  la  celda  C3  digitamos,  de  acuerdo  a  la  sintaxis  de  una  versión  de  Excel  en  español1,  la  fórmula: 


=2*B3A3+LN (B3) -COS (B3) /EXP (B3) +SENO (B3) 


Una  vez  que  ha  sido  digitada,  simplemente  se  pulsa  la  tecla  "Entrar”  o  "Enter". 


IpPj  Archivo  Edición  Ver  Insertar  Formato  Herramientas  Datos  Ventana  ? 

□  &  y  uá 

ia,B  k 

t  111111 

s  f*  zl  aI 

C3  =2*E¡3A3 +LN  (B3)-  COS  (B3)/EXP  (B3)  +S  E  N  0  (B3) 

A 

Ei 

D 

D 

E 

1 

2 

3 

1.1 

3.497528511 

E.2.2  Errores  comunes 

Conforme  vamos  digitando  nuestras  primeras  fórmulas,  nos  van  apareciendo  algunos  errores  que  usualmente  son 
debidos  a  un  manejo  inadecuado  de  la  sintaxis  o  a  la  incompatibilidad  con  la  configuración  de  la  computadora.  A 
continuación  se  describen  algunas  situaciones  que  pueden  aparecer. 

1.  El  valor  de  error  # ¿NOMBRE?  aparece  cuando  Excel  no  reconoce  texto  en  una  fórmula.  Debe  revisar  la  sintaxis 
de  dicha  fórmula  o,  si  es  una  macro,  verificar  que  esté  en  un  módulo  de  esta  hoja. 

2.  El  valor  de  error  #  ¡  VALOR !  da  cuando  se  utiliza  un  tipo  de  argumento  (u  operando)  incorrecto.  Este  error  se  da 
por  ejemplo,  cuando  evaluamos  una  función  numérica  en  una  celda  que  contiene  algo  que  no  sea  un  número 
(Por  defecto,  el  contenido  de  una  celda  vacía  es  cero). 

3.  El  valor  de  error  #  ¡NUM!  se  aparece  cuando  hay  un  problema  con  algún  número  en  una  fórmula  o  función. 
Por  ejemplo,  si  evaluamos  una  función  logarítmica  en  cero  o  en  un  número  negativo. 

4.  El  valor  de  error  #  ¡  DIV/ 0  !  se  produce  cuando  en  una  fórmula  se  divide  por  0  (cero). 

5.  El  valor  de  error  #  ¡  REF !  se  da  cuando  una  referencia  a  una  celda  no  es  válida. 

6.  Dependiendo  de  la  forma  en  que  esté  configurado  el  sistema  Windows,  debe  usarse  punto  o  coma  para  separar 
la  parte  decimal  de  los  números  a  evaluar.  Para  personalizarlo,  se  debe  entrar  al  panel  de  control  y  en  la  "Con¬ 
figuración  regional”  se  selecciona  "Números”.  En  la  primera  cejilla,  "Símbolo  Decimal"  se  selecciona  el  punto  o 
la  coma,  según  sea  el  caso.  Finalmente,  se  presiona  el  botón  "Aplicar"  y  luego  "Aceptar”. 

7.  Una  situación  que  a  veces  es  confundida  con  un  error  se  da  cuando  el  sistema  trabaja  con  poca  precisión  y  se 

presentan  valores  numéricos  no  esperados.  Por  ejemplo,  si  el  formato  de  una  celda  se  ha  definido  para  dos 

posiciones,  entonces  la  operación  +1.999+1  efectuado  en  dicha  celda  dará  como  resultado  el  valor  2,  que  no  es 
otra  cosa  que  el  resultado  de  tal  suma  redondeado  a  dos  decimales.  El  valor  correcto  se  obtiene  aumentado  la 
precisión  con  el  icono  correspondiente: 


+  0 

00 

00 

+  0 

1En  una  versión  en  español  se  usa  SENO(x)  para  evaluar  la  función  Sen(x),  mientras  que  una  versión  en  inglés  se  usa  SIN(x). 
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También  se  puede  cambiar  la  precisión  en  el  menú  "Formato-Celdas-Número-Posiciones  decimales  " . 


Estos  cambios  son  sólo  de  apariencia,  pues,  independientemente  del  número  de  dígitos  que  sean  desplegados, 
Excel  manipula  los  números  con  una  precisión  de  hasta  15  dígitos.  Si  un  número  contiene  más  de  15  dígitos 
significativos,  Excel  convertirá  los  dígitos  adicionales  en  ceros  (0). 


E.2.3  Evaluando  una  función  en  varios  tipos  de  parámetros 

Muchas  fórmulas  a  evaluar  tienen  argumentos  de  distinto  tipo,  pues  algunos  argumentos  varían  (a  veces  con  un 
incremento  determinado),  mientras  que  otros  permanecen  constantes.  Por  lo  general  estos  argumentos  son  tomados 
de  celdas  específicas,  por  lo  que  es  importante  saber  manejar  distintos  escenarios  para  la  evaluación  de  una  función 
o  fórmula. 


E.2.3. 1  Evaluación  con  argumentos  variables  Continuando  con  el  ejemplo  que  iniciamos  en  la  sección  1.2.1,  a 
partir  de  la  celda  B4  podemos  continuar  digitando  valores,  siempre  en  la  columna  B  y  con  el  cuidado  de  que  estos 


números  no  se  salgan  del  dominio  de  la  función /(x)  =  2x3  +  1  n  (ye )  — 


cos(x) 


sen  (x),  que  en  este  caso  es  el  conjunto 


de  los  números  reales  positivos.  Una  vez  hecho  ésto,  se  evalúa  la  función  /(x)  en  la  celda  C3,  como  se  hizo  previa¬ 
mente.  Luego,  seleccionamos  esta  misma  celda  C3  y  se  ubica  el  mouse  en  la  esquina  inferior  derecha,  arrastrándolo 
hasta  la  celda  deseada.  Otra  posibilidad  es  hacer  un  doble  clic  en  la  esquina  inferior  derecha  de  la  celda  a  copiar 
y  esto  realiza  la  copia  automáticamente. 


A]  Archivo  Edición  Ver  Insertar  Formato  Herr< 

*  ite  ®  ^ 


C3 


A 

B 

1 

2 

X 

w  1 

3 

1.10 

3.497528507  A 

4 

1.78 

11 

5 

4.78 

6 

5.956 

7 

0.555 

8 

10.44 

=  =2*B3A3+LN(B3' 


Arrastrar 
hacia  abajo 


Archivo  Edición  Ver  Insertar  Formato  Herra 


□  B  &  m  a  V  »  3a  ®  -st 


zl 


C3 


=2*B3A3+LN(B3) 


A 

B 

C  I 

D 

1 

2 

X 

3 

1.10 

3.497528507 

l4l 

1.78 

12.86933691 

218.9968621 

424.026093 

-0.207840383 

2277.28243 

5 

4.78 

6 

5.956 

7 

0.555 

8 

10.44 

1 

E.2.3. 2  Evaluación  con  argumentos  variables  y/o  constantes  Es  común  tener  que  evaluar  funciones  o  fórmu¬ 
las  que  dependen  de  varios  parámetros,  algunos  de  los  cuales  se  mantienen  fijos  mientras  que  otros  son  variables. 
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El  siguiente  ejemplo  describe  una  función  con  dos  parámetros  y  una  variable. 
K 


La  función'1  P(f)  — 
Aquí: 


1  +  Ae~kt 


_  Pq 

,  con  A  =  — — — ,  describe  el  tamaño  de  una  población  en  el  momento  t. 


k  es  una  constante  de  proporcionalidad  que  se  determina  experimentalmente,  dependiendo  de  la  población 
particular  que  está  siendo  modelada. 


.  Pq  es  la  población  inicial  y 


.  K  es  una  constante  llamada  capacidad  de  contención  o  capacidad  máxima  que  el  medio  es  capaz  de  sostener. 


Si  queremos  evaluar  P(t)  para  distintos  valores  del  tiempo  t  en  días,  seguimos  la  siguiente  secuencia  de  pasos: 

1.  Para  empezar,  es  importante  escribir  encabezados  en  cada  una  de  las  columnas  (o  filas)  donde  vamos  a  escribir 
los  datos  que  serán  los  argumentos  de  la  función.  En  este  caso,  comenzando  en  la  celda  B3,  escribimos  las 
etiquetas 


PO  K  k  t  P(t). 


2.  A  continuación  escribimos  los  valores  de  los  parámetros,  comenzando  en  la  celda  B4 


100  1000  0.08  0. 

3.  Ahora  escribimos  la  fórmula  de  la  función  P(f)  en  la  celda  G4: 

=C $ 4 / (1+ ( (C$4  — B$ 4 ) /B $ 4 ) *EXP  (-D$4*E4) ) 

Como  puede  observarse,  el  único  argumento  variable  es  í  y  nos  interesa  mantener  a  los  otros  argumentos 
constantes.  Para  mantener  un  valor  (que  se  lea  en  una  celda)  constante,  se  le  agrega  el  símbolo  $  antes  del 
número  de  fila,  como  por  ejemplo  C$4. 

En  nuestro  ejemplo,  los  argumentos  constantes  son  los  que  están  en  las  celdas  B4,  C4  y  D4,  mientras  que  el 
valor  de  t  en  la  celda  E4,  es  variable. 


4.  Finalmente,  escribimos  varios  valores  para  t  en  la  columna  E,  seleccionamos  la  celda  F4  y  arrastramos  para 
evaluar  P(f)  en  el  resto  de  valores  de  t. 


A 

B 

c 

D  E 

F 

1 

2 

3 

P0 

K 

k 

t 

P(t) 

4 

100 

1000 

0.08 

0 

100 

5 

5 

142.18925 

6 

6 

152.229 

7 

10 

198.2569 

8 

15 

269.48745 

9 

17 

302.11964 

10 

20 

354.97892 

11 

21 

373.50145 

12 

30 

550.52086 

13 

45 

802.62394 

dP  (  P\ 

"P(í)  es  la  solución  de  la  llamada  ecuación  logística:  —  =  fcP  I  1  —  — J 
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E.2.3.3  Construyendo  rangos  con  un  incremento  fijo  A  menudo  necesitamos  evaluar  una  función  en  una  se¬ 
cuencia  de  valores  igualmente  espaciados,  por  lo  que  a  continuación  se  explica  cómo  hacerlo,  modificando  el  ejemplo 
previo  de  crecimiento  de  una  población. 

1.  En  la  celda  C5  podemos  escribir  un  valor,  por  ejemplo,  5,  que  servirá  como  incremento  entre  un  tiempo  y  el 
siguiente,  iniciando  con  t  —  0. 

2.  En  la  celda  E4  escribimos  el  tiempo  inicial  t  =  0  y  en  la  celda  E5  se  escribe  el  nuevo  tiempo  con  el  incremento  h: 

=+E4+C$6 

En  esta  operación  debemos  usar  el  símbolo  $  frente  al  número  de  fila  en  C$  6  para  que  el  incremento  se  mantenga 
inalterado  al  copiar  esta  operación  en  otra  celda  situada  en  una  fila  diferente.  De  igual  forma,  si  necesitáramos 
copiar  la  expresión  en  otra  celda  situada  en  diferente  columna,  se  debe  escribir  el  símbolo  $  frente  al  número 
de  columna. 

3.  Ahora  seleccionamos  esta  celda  E5  y  la  arrastramos  hacia  abajo  para  obtener  los  nuevos  tiempos  con  el  respec¬ 
tivo  incremento. 


A 

B 

C 

Di  E  F 

1 

2 

3 

P0 

K 

k 

t 

P(t) 

4 

100 

1000 

0,1 

0 

100 

5 

5 

142,1893 

6 

Incremento: 

h= 

5 

10 

198,2569 

7 

15 

269,4875 

8 

20 

354,9789 

9 

25 

450,8531 

10 

30 

550,5209 

11 

35 

646,291 

12 

40 

731,6039 

13 

45 

802,6239 

Nota:  Esto  también  se  puede  hacer  escribiendo,  en  celdas  consecutivas,  un  valor  y  luego  el  valor  más  el  incremento  y 
luego  seleccionando  ambas  celdas  para  luego  arrastrar.  Sin  embargo,  al  leer  el  incremento  de  una  celda,  se  actualizan 
todos  los  datos  que  hacen  referencia  a  ésta,  por  lo  que  es  más  práctico  y  flexible. 


E.3 


Gráficas 


Continuando  con  el  ejemplo  anterior  en  el  que  se  ha  evaluado  la  población  P(f)  en  un  conjunto  de  valores  del  tiempo 
f,  recordemos  que  en  las  columnas  E  y  F  se  han  escrito,  respectivamente,  los  valores  de  í  y  P(f).  Para  graficar  P(f) 
con  respecto  a  f,  podemos  seguir  los  siguientes  pasos: 
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1.  Seleccionamos  el  rango  en  el  cual  se  encuentran  los  valores  de  í  y  P(t).  Este  rango  puede  incluir  las  celdas  que 
contienen  los  rótulos  de  las  columnas. 


2.  Presionamos  el  icono 


m 


,  que  activa  el  asistente  para  gráficos. 


Hay  varias  opciones  que  podemos  elegir  para  el  gráfico  y  en  nuestro  caso  podemos  elegir  el  tipo  Dispersión . 


»-1  Épfhw  t^B>  Vkt  Ineoikjr  ! 

ofiMlo  ‘-leUrSníWíiEa-,  [J 

11  ?! 

d  ü  u  c.i  &  \\  t  * 

i?  if1  7  ■  - 

Tipí*:  sfrj; ik-Vr. 

Etljuon  liuV 
Ir  rpmMil 


I 

P*« 
■H  ■ 

K  * 

■ 


D  C 


■m 

■ct" 

u  m 


5 

SU 

15 

20 

25 

30 

35 

íll 

4-' 

B0 


P|t) 

i'Vi 

14.  :  53 

196  .bf 
-L.J  átí? 
Jba 

*50  *3 
5S0  5  31 
64fj  ??! 

ft l  KM 
803  húí 
aea  m 


Ti-  ¡If  '/  ■'  ■ 


■*J  í-j  de  ••jíivjj'. 


W 

'  ’  ** 

¡|>QíÍ 

¿L 

A  •'¿F 

'■  !f 

*  *  Tl 

|a_ 

I'.ki  icrJ.  ■). 

cc'itr.t.-ri os  *  Inew  <vih  ¡rada* 


ft  M i  ■  k-  ¡  v  'i  :  d  -/i  n 


0 

Cm/pI*  I 

Fí*  iíAíiv 

3.  Presionamos  el  botón 


Siguiente  y  luego  Finalizar  .  Antes  de  finalizar  se  pueden  escoger  distintas  opciones 


para  personalizar  el  gráfico.  A  continuación  se  muestra  la  salida  del  gráfico. 


A 

e  c  I 

E 

F 

1 

2  Población  Inicial 

PO  =  1 00 

t 

m 

3  Incremento 

h  =  5 

0 

100 

4 

K  =  1 000 

5 

142.19 

5 

k  =  0.08 

10 

198.26 

6 

15 

269  49 

7 

20 

354  98 

8 

25 

450.85 

9 

30 

550  52 

10 

35 

646.29 

11 

40 

731 .6 

12 

45 

802  62 

13 

50 

858.49 

H 


m 


PIX! 
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La  curva  obtenida  se  llama  curva  logística  o  sigmoide,  por  la  forma  de  "S"  que  tiene. 


E.4 


Programación  de  macros 


E.4.1  Introducción 

El  lenguaje  Visual  Basic  para  Aplicaciones  (VBA),  en  el  contexto  de  Excel,  constituye  una  herramienta  de  progra¬ 
mación  que  nos  permite  usar  código  Visual  Basic  adaptado  para  interactuar  con  las  múltiples  facetas  de  Excel  y 
personalizar  las  aplicaciones  que  hagamos  en  esta  hoja  electrónica. 

Las  unidades  de  código  VBA  se  llaman  macros.  Las  macros  pueden  ser  procedimientos  de  dos  tipos: 

-  Funciones  (Function) 

-  Subrutinas  (Sub) ). 

Las  funciones  pueden  aceptar  argumentos,  como  constantes,  variables  o  expresiones.  Están  restringidas  a  entregar 
un  valor  en  una  celda  de  la  hoja  o  en  el  contexto  de  otra  función  o  subrutina.  Las  funciones  pueden  llamar  a  otras 
funciones  y  hasta  subrutinas  (en  el  caso  de  que  no  afecten  la  entrega  de  un  valor  en  una  sola  celda). 

Una  subrutina  realiza  acciones  específicas  pero  no  están  destinadas  a  devolver  un  solo  valor.  Puede  aceptar  argu¬ 
mentos,  como  constantes,  variables  o  expresiones  y  puede  llamar  funciones  que  ejecutan  ciertas  acciones. 

Con  las  subrutinas  podemos  entregar  valores  en  distintas  celdas  de  la  hoja.  Es  ideal  para  leer  parámetros  en  algunas 
celdas  y  escribir  en  otras  para  completar  un  cuadro  de  información  a  partir  de  los  datos  leídos. 

E.4.1. 1  Editar  y  ejecutar  macros.  Las  funciones  y  las  subrutinas  se  pueden  implementar  en  el  editor  de  Visual 
Basic  (Alt-Fll). 

Para  usar  una  función  en  una  hoja  de  Excel  se  debe,  en  el  editor  de  VB,  insertar  un  módulo  y  editar  la  función  en  este 
módulo.  Esta  acción  de  describe  más  adelante.  De  la  misma  manera  se  pueden  editar  subrutinas  en  un  módulo. 

Una  función  definida  por  el  usuario  se  invoca  en  una  hoja  de  la  misma  forma  en  que  se  invocan  las  funciones  pre¬ 
determinadas  de  Excel  o  una  fórmula.  Una  subrutina  se  puede  invocar  por  ejemplo  desde  la  ventana  de  ejecución 
de  macros  (Alt-F8)  o  desde  un  botón  que  hace  una  llamada  a  la  subrutina  (como  respuesta  al  evento  de  hacer  clic 
sobre  él,  por  ejemplo). 

El  código  que  ejecuta  un  botón  puede  llamar  a  subrutinas  y  a  las  funciones  de  la  hoja.  El  código  del  botón  no  está 
en  un  módulo.  En  la  hoja  de  edición  donde  se  encuentra  el  código  del  botón,  se  pueden  implementar  funciones  para 
uso  de  este  código  pero  que  serán  desconocidas  para  la  hoja  (mensaje  de  error  #¿NOMBRE?). 

Nota:  un  error  frecuente  es  editar  una  función  en  un  módulo  que  corresponde  a  una  hoja  y  llamarlo  desde  otra  hoja. 
En  este  caso  se  despliega  el  error  (mensaje  de  error  #¿NOMBRE?). 


298 


PROGRAMACIÓN  VISUAL  BASIC  (VBA)  PARA  EXCEL 


E.4.2  Funciones 

Una  función  tiene  la  siguiente  sintaxis: 

Function  NombreFun(argl,  arg2,...,argn) 
Declaración  de  Variables  y  constantes 

Instruccción  1 

Instruccción  2 


Instruccción  k 

NombreFun  =  Valor  de  retorno 

'comentario 

End  Function 

Una  función  puede  tener  o  no  tener  argumentos,  pero  es  conveniente  que  retorne  un  valor.  Observe  que  se  debe  usar 
el  nombre  de  la  función  para  especificar  la  salida: 

NombreFun  =  Valor  de  retorno 

Nota  1:  Al  interior  de  las  funciones  o  subrutinas,  se  pueden  hacer  comentarios  utilizando  el  apóstrofo  'o  también  se 
usa  rem  antes  de  éstos.  El  uso  de  comentarios  ayuda  a  documentar  los  programas. 

Nota  2:  Para  el  uso  de  nombres  de  variables  o  de  cualquier  otra  palabra  reservada  de  VBA,  no  se  discrimina  entre  el 
uso  de  letras  mayúsculas  y  minúsculas. 

Nota  3:  No  debemos  usar  nombres  para  las  funciones  como  fl(x),  f2(x)  o  gl(x),  etc.  pues  a  al  hora  de  llamarlas  desde 
Excel,  se  confunden  con  las  celdas  Fl,  Gl,  etc.  y  como  resultado  se  produce  un  error. 

Implementar  una  función.  Vamos  a  implementar  como  una  macro  la  función  con  la  que  se  trabajó  previamente: 

f(x)  —  2xd  +  ln(jt) - +  sen(x). 

Para  su  definición  y  utilización,  se  siguen  los  pasos: 

1.  Ingresamos  al  menú  y  en  la  opción  Herramientas  seleccionamos  Macros.  Luego  se  elige  Editor  de 
Visual  Basic: 
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Archivo  Edición  Ver  Insertar  Formato 


A” 


Jy 


B3 


1 


100%  -  » 

~3 


Arial 


A 


Herramientas  Datos  Ventana  ? 

y  Macros...  Alt+F8 

•  Grabar  nueva  macro... 


Macro  ► 


B 


D, 


Editor  de  Visual  Basic  Alt+Fl  1 


También  puede  usar  Alt -F 11 


2.  Nuevamente,  en  el  menú  de  la  ventana  que  se  abre,  se  elige  Insertar,  para  luego  seleccionar  Módulo: 


Archivo  Edición  Ver  Insertar  Formato  Depuración  Ejecutar  Herramientas 


J 


Proyecto 

-  VBAProjecl] 

jo  m 

E 

i  f514* 

¿1  UserForm 


Módulo 


Módulo  de  clase 


E 


VBAProject  (Li 


Archivo, 


Microsoft  Excel  Ubi  en  os 
(í  Hojal  (Hojal) 
Hoja2  (Hoja2) 

(j  Hoja3  (HojaS) 
ThisWorkbook 


3.  Ahora  en  la  pantalla  de  edición  del  módulo,  escribimos  el  siguiente  código: 


Código  VBA  E.l: 


Function  f  (x) 

f  =  2*xA3  +  Log(x)  -  Cos (x)  /  Exp(x)  +  Sin(x) 
rem  retorna  la  imagen  de  f (x) 

End  Function 
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4.  Una  vez  que  ha  sido  editado  el  código  de  la  macro,  se  salva  y  salimos  del  ambiente  de  programación  en  Visual 
Basic  para  volver  a  la  hoja  electrónica  de  donde  partimos.  Esto  se  hace  en  el  menú  Archivo,  seleccionando 

Cerrar  y  Volver  a  Excel. 

5.  Para  evaluar  la  función  /(x)  en  algunos  valores  que  se  localicen,  por  ejemplo,  desde  la  fila  3  hasta  la  fila  6  de  la 
columna  B,  nos  situamos  en  una  celda  en  la  que  nos  interese  dejar  el  resultado  de  dicha  evaluación  y  se  digita 
+f  (B3) .  Luego  se  arrastra  hasta  C6  para  copiar  la  fórmula,  quedando: 


A 

B 

C_ 1  D 

1 

2 

X 

1  m i 

3 

1.5 

i  8.13717649  i 

4 

2.4 

|  = 

5 

5.6 

¡  ¡ 

6 

7.8 

i  i 

A 

B 

c 

D 

i 

2 

X 

M 

3 

1.5 

8.13717649 

4 

2.4 

29.2658268 

352.320632 

952.156645 

5 

5.6 

6 

7.8 

E.4.3  Funciones  en  VBA  y  Funciones  en  Excel. 

Hay  ciertos  detalles  que  debemos  tomar  en  cuenta  cuando  trabajamos  con  VBA  y  Excel. 

9  En  Excel  -3A2=9  aunque  en  VBA  -3A2=-9. 

Lo  mejor  es  siempre  poner  paréntesis  -  (3A2)  =-9  o  (-3)  A2)  para  no  hacer  la  diferencia  de  si  está  en  VBA  o 
Excel. 

9  En  la  tabla  que  sigue  hay  una  pequeña  lista  de  funciones  y  su  respectivo  código  en  VBA  y  en  Excel 


VBA 


Excel 


sgn(x)  signo (x) 

sqr(x)  raiz (x)  (o  sqrt (x)  en  inglés) 

Log(x)  Ln(x) 

Log (x) /Log  (10)  Log(x) 
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Por  ejemplo,  consideremos  la  función 

r,  \  -a  i  /  \  COS(X)  ,  » 

f(x)  =  2x¿  +  ln(x) - -  +  sen(x)  : 


•  En  Excel  la  sintaxis  es:  2*B3A3+LN  (B3)  -COS  (B3)  /EXP  (B3)  +SEN0  (B3) 


•  En  VBA  la  sintaxis  es:  2  *  x  A  3  +  Log(x)  -  Cos  (x)  /  Exp(x)  +  Sin(x) 

O  Para  conocer  con  detalle  la  sintaxis  de  las  funciones  matemáticas  estándar  que  se  pueden  evaluar  en  Visual 
Basic,  puede  usarse  la  Ayuda  del  Editor  de  Visual  Basic. 


Lectura  de  parámetros  en  celdas.  Una  vez  más  vamos  a  trabajar  con  el  modelo  de  crecimiento  poblacional  de¬ 
scrito  anteriormente.  La  función 

K 

1  +  Ae~kt' 

con 

,  K~p0 

Po 

Ahora  evaluaremos  P(f)  para  distintos  valores  del  tiempo  t  en  días,  pero  esta  vez  haremos  dicha  evaluación  medi¬ 
ante  una  macro  para  definir  P(f)  . 


Los  parámetros  los  vamos  a  leer  desde  unas  celdas  ubicadas  en  la  columna  C.  Para  hacer  referencia  a  una  celda,  se 
usa  el  código 

Cells (fila, columna) 

pero  escribiendo  "columna”  en  formato  numérico.  Por  ejemplo,  la  celda  C5  se  invoca  como 

Cells (5, 3) 

Lo  primero  que  hacemos  es  escribir,  en  el  editor  de  VBA,  la  fórmula  de  P(f),  luego  la  invocamos  en  la  celda  F3  (de 
nuestra  hoja  de  ejemplo)  y  arrastramos.  Para  ésto,  se  siguen  los  siguientes  pasos: 

1.  En  primer  lugar,  abrimos  una  hoja  Excel,  que  se  llame  por  ejemplo  Poblacion.xls.  Luego  se  escriben  los 
valores  de  los  parámetros,  tal  y  como  puede  observarse  en  la  siguiente  figura: 


A 

B 

C 

D 

E 

F 

O 

H 

1 

J 

h 

1 

2 

Población  inicial 

PO  = 

100 

t  0 

5 

10 

15 

20 

3 

Incremento 

h  = 

5 

PCD 

4 

K  = 

1 000 

5 

fí  = 

0.08 

6 

2.  Ahora  ingresamos  al  menú  y  en  la  opción  Herramientas  seleccionamos  Macros.  Luego  se  elige  Editor  de  Visual  Basic 
Nuevamente,  en  el  menú  de  la  ventana  que  se  abre,  se  elige  Insertar,  para  luego  seleccionar  Módulo  y 
escribir  el  siguiente  código: 
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Código  VBA  E.2: 

Function  P(t) 

PO  =  Cells  (2,  3) 

rem 

PO 

está 

en 

la 

celda 

C2 

LimPobl  =  Cells  (4, 

3)  rem 

K 

está 

en 

la 

celda 

C4 

k  =  Cells  (5,  3) 

rem 

k 

está 

en 

la 

celda 

C5 

A  =  (LimPobl  -  PO) 

/  PO 

P  =  LimPobl  /  (1  + 

A  *  Exp 

(-k 

*  t) ) 

End  Function 

De  esta  forma,  la  ventana  de  edición  de  Visual  Basic,  quedaría  así: 


3.  Una  vez  que  ha  sido  editado  el  código  de  la  macro,  se  guarda  y  salimos  del  ambiente  de  programación  en  Visual 
Basic  para  volver  a  la  hoja  electrónica  de  donde  partimos.  Este  retorno  se  hace  siguiendo  el  menú  Archivo  y 
seleccionando  Cerrar  y  Volver  a  Excel. 

4.  Para  evaluar  la  función  P(f)  en  los  valores  de  t  que  están  en  la  fila  que  inicia  en  F2,  nos  situamos  en  la  celda  F3 
y  se  digita  +P  (F2) .  Luego  se  arrastra  hasta  J2  para  copiar  la  fórmula,  quedando: 


F3  z] 

= 

=+P(F2) 

A 

B 

C III  D 

E  1 

F 

l G 

H 

•  1  J  1 

1 

2 

Población  inicial 

P0  =  100 

t 

0 

5 

10 

15 

20 

3 

Incremento 

h  =  5 

MU 

100 

142.18925 

198  2568985 

269.487452 

354  9789231  1 

4 

K  =  1 000 

5 

=  0.08 

E.4.4  Algunas  Propiedades  de  las  Celdas 

Tamaño  de  fuente:  Cells(5,  3).Font.Size  =  14 


Itálica:  Cells(5,  3) )  .  Font .  Italic  =  True 


Celda  Cells(n  +  1,  1)  .Address  (devuelve  por  ejemplo  "$A5") 
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Color:  Cells(l,  1)  .  Interior . Colorindex  =  3 


E.5 


Elementos  de  programación  en  VBA 


Un  programa  computacional  escrito  mediante  cualquier  lenguaje  de  programación  puede  verse  a  grandes  rasgos 
como  un  flujo  de  datos,  algunos  jugando  el  papel  de  datos  de  entrada,  otros  son  datos  que  cumplen  una  función 
temporal  dentro  del  programa  y  otros  son  datos  de  salida.  A  lo  largo  del  programa  es  muy  frecuente  la  entrada  en 
acción  de  otros  programas  o  procesos.  A  mayor  complejidad  del  problema  que  resuelve  el  programa,  mayor  es  la 
necesidad  de  programar  por  aparte  algunos  segmentos  de  instrucciones  que  se  especializan  en  una  tarea  o  conjunto 
de  tareas. 

Hay  tres  tipos  de  estructuras  básicas  que  son  muy  utilizadas  en  la  programación  de  un  algoritmo,  a  saber,  la  estruc¬ 
tura  secuencial,  la  estructura  condicional  y  la  repetitiva. 

A  continuación  se  explica,  con  ejemplos  programados  como  macros  de  Excel,  estas  estructuras.  También  se  incluyen 
los  programas  en  seudocódigo  y  diagramas  de  flujo  para  explicar  de  un  modo  más  gráfico  la  lógica  del  programa.  El 
uso  de  estos  últimos  es  cada  vez  menor,  pues  el  seudocódigo  por  lo  general  es  suficientemente  claro  y  se  escribe  en 
lenguaje  muy  cercano  al  lenguaje  natural. 


E.5.1  Flujo  secuencial 

El  flujo  secuencial  consiste  en  seguir  una  secuencia  de  pasos  que  siguen  un  orden  predeterminado. 

Un  programa  que  tome  un  número  N  de  días  y  calcule  la  cantidad  de  segundos  que  hay  en  esta  cantidad  de  días. 
Este  programa  se  puede  ver  como  una  secuencia  de  varios  pasos: 

•  Inicio:  Ingresa  el  número  N  de  días 

•  Paso  1:  H  =  24*N,  para  determinar  la  cantidad  de  horas 

•  Paso  2:  M  =  60*H,  para  determinar  la  cantidad  de  minutos. 

•  Paso  3:  S  =  60*M,  para  determinar  la  cantidad  de  segundos. 

•  Paso  4:  Retorne  S. 

•  Fin. 

La  macro  correspondiente  a  esta  secuencia  de  cálculos  puede  escribirse  como  sigue: 


Código  VBA  E.3: 


Function  CalculeSegundos  (Dias) 
CantHoras  =  24  *  Dias 
CantMinutos  =  60  *  CantHoras 
CalculeSegundos  =  60  *  CantMinutos 

End  Function 
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E.5.2  Flujo  condicional  (If-Then-Else) 

Un  flujo  condicional  se  presenta  en  un  programa  o  procedimiento  que  debe  escoger  una  acción  o  proceso  a  ejecutar, 
dependiendo  de  condiciones  que  puedan  cumplirse. 

El  caso  más  sencillo  ocurre  cuando  el  programa  verifica  si  una  condición  se  cumple  y  en  caso  de  ser  verdadera  ejecuta 
un  proceso,  en  tanto  que  si  es  falsa  ejecuta  otro  proceso. 

En  VBA  tenemos  la  instrucción 


If . . .Then. . .Else 


Ejecuta  condicionalmente  un  grupo  de  instrucciones,  dependiendo  del  valor  de  una  expresión. 


Sintaxis 


If  condición  Then 
instrucciones 

Else 

instrucciones-else 


End  If 
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En  algunos  casos  es  útil  seguir  una  sintaxis  en  formato  de  bloque: 


I  f  condición  Then 
instrucciones 

Elself  condición  Then 
instrucciones-elseif 


Else 

instrucciones-else 

End  If 


Nota:  En  la  ayuda  del  editor  de  Visual  Basic,  tenemos  acceso  a  la  referencia  del  lenguaje. 

Usando  If .  En  este  ejemplo  veremos  cómo  usar  la  instrucción  If .  .  .  Then .  .  .  Else 

Implementar  un  programa  que  calcule  aproximaciones  de  y/a.  Para  esto  usaremos  la  sucesión  {xnjneN  definida  en 
forma  recurrente  mediante  la  relación2: 


1 ,  a 

*„+ 1  =  ~{Xn-\ - ) 

z  xn 

x0  =1 


Esta  sucesión  converge  a  y/a,  a  >  0. 

El  programa  deberá  estimar  el  error  absoluto  de  las  aproximaciones  y  será  capaz  de  escribir  un  mensaje  de  éxito  o  de 
fracaso,  dependiendo  de  si  el  error  absoluto  es  o  no  menor  que  una  tolerancia  dada. 


2Como  veremos  en  otro  capítulo,  esta  sucesión  se  obtiene  buscando  una  solución  aproximada  de  la  ecuación  x2  —  a  =  0  aplicando  el  Método  de 
Newton  a  la  función  f(x)  =  x2  —  a,  con  una  aproximación  inicial,  digamos,  Xq  =  1.  La  convergencia  de  esta  sucesión  es  cuadrática;  es  decir,  que  a 
partir  de  cierto  momento  el  valor  xn+\  calculado  duplica  en  decimales  exactos  al  valor  xn  que  le  precede. 
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A 

B 

C 

D 

1 

Tolerancia: 

0,000000001 

2 

Error 

3 

absoluto 

Se  aproxime 

4 

n 

En 

a  la  tolerand 

5 

0 

1 ,000000000000000 

0,414213562 

FRACASO 

6 

1 

1 ,500000000000000 

0,085786438 

FRACASO 

7 

2 

1 ,416666666666670 

0,002453104 

FRACASO 

8 

3 

1 ,414215686274510 

2.1239E-06 

FRACASO 

9 

4 

1,414213562374690 

1 , 59472  E- 12 

FRACASO 

10 

5 

1,414213562373090 

2 ,22045  E- 16 

EXITO 

La  figura  anterior  corresponde  a  las  aproximaciones  de  \Í2  y  se  han  obtenido  mediante  la  evaluación  de  las  siguientes 
funciones: 


Código  VBA  E.4: 


Function  AproxDeRaiz  (x,  a) 

AproxDeRaiz  =  (1/2)  *  (x+a/x) 

End  Function 

Function  CalculoElError (Aproximación,  ValorExacto) 
CalculoElError  =  Abs (Aproximación  -  ValorExacto) 

End  Function 

Function  verificaTol  (Error,  Tol) 

If  (Error  <  Tol)  Then 
verificaTol  =  "EXITO" 

Else 

verificaTol  =  "FRACASO" 

End  If 

End  Function 


El  diagrama  siguiente  ilustra  la  forma  en  que  esta  última  función  de  verificación  actúa  con  base  en  el  valor  de  sus 
dos  parámetros  de  entrada: 
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E.5.3  Flujo  repetitivo  (  For-Next,  While-Wend,  Do  While-Loop) 

El  flujo  repetitivo  se  presenta  cuando  se  requiere  la  ejecución  de  un  proceso  o  parte  de  un  proceso  sucesivamente, 
hasta  que  ocurra  una  condición  que  permita  terminar. 

Los  flujos  repetitivos  se  presentan  en  tres  formas  que  obedecen  a  maneras  diferentes  de  razonarlos  pero  que  en  el 
fondo  hacen  lo  mismo: 

•  Utilizar  un  contador  que  empiece  en  un  número  y  termine  en  otro,  ejecutando  el  proceso  cada  vez  que  el 
contador  tome  un  valor  distinto. 

•  Mientras  una  condición  sea  verdadera,  ejecutar  un  proceso  y  regresar  a  la  condición. 

•  Ejecutar  un  proceso,  hasta  que  una  condición  deje  de  cumplirse. 

En  VBA  tenemos  las  siguientes  instrucciones  para  realizar  procesos  iterativos: 


1.  For  .  .  .  Next 

Repite  un  grupo  de  instrucciones  un  número  especificado  de  veces. 

Sintaxis 

For  contador  =  inicio  To  fin  [Step  incremento] 

instrucciones 

[Exit  For] 

instrucciones 

Next  contador 

(Las  instrucciones  entre  corchetes  son  optativas.) 

2.  While .  .  .  Wend 

Ejecuta  una  serie  de  instrucciones  mientras  una  condición  dada  sea  verdadera. 

Sintaxis 

While  condición 
instrucciones 

Wend 

Nota:  No  hay  un  Exit  While.  En  una  subrutina,  si  fuera  necesario,  se  podría  usar  Exit  Sub 

3.  Una  instrucción  muy  parecida  a  While  pero  más  eficiente  es  Do 


Sintaxis 
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Do  while  condición 
instrucciones 

[Exit  Do] 

Loop 


Para  ilustrar  estas  formas  de  realizar  un  flujo  repetitivo,  vamos  a  aproximar  la  suma  de  una  serie  alternada  de  tal 
forma  que  el  error  no  sobrepase  un  valor  de  tolerancia  dado. 

Consideremos  la  serie  alternada 


k= 1 


1 

¥ 


La  suma  parcial  N-ésima  viene  dada  por 


1 

16 


es  decir 


SN 


Y 


E( 


i 

w 


Si  - 

-1 

-1 

S2  - 

-1  +  1/4 

-0.75 

S3  - 

-1  +  1/4 -1/9 

-0.861111 

S3  - 

-1  +  1/4-1/9  +  1/16  = 

-0.798611 

y 

De  acuerdo  con  la  teoría  de  series  alternadas,  la  serie  E  (  — 1)^72  converge  a  un  valor  S.  Al  aproximarla  con  la  suma 


parcial  S,\¡,  el  error  de  aproximación  es  menor  que 


k=l 

1 


(N  +  l)2 
S  -  Sjv|  < 


k2 

,  es  decir 


(N  +  l)2 


Primer  problema 

Dada  una  tolerancia  TOL,  (donde  TOL  es  una  cantidad  positiva,  como  10-1,  5  x  10  ,s,  etc.),  calcular  cada  una  de  las 
sumas  parciales  hasta  que  el  error  de  aproximación  sea  menor  que  TOL. 

1 

La  cantidad  -  —  —  —  y  juega  en  este  problema  el  papel  de  una  cota  del  error,  al  aproximar  la  serie  correspondiente 
hasta  el  término  N-ésimo. 


Solución 
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A  B 

C 

D 

E 

F  G  H 

31 

Suma  de  la  Serie 

32 

TOL 

N 

Suma-Parcial  N 

Error  estimado 

ya? 

33 

0,01 

1 

-1 

0,25 

Error  estimado  >  .01 

34 

2 

-0,75 

0,111111111 

Error  estimado  >  .01 

35 

3 

-0,861111111 

0,0625 

Error  estimado  >  .01 

36 

4 

-0,798611111 

0,04 

Error  estimado  >  .01 

37 

5 

-0,838611111 

0,027777778 

Error  estimado  >  .01 

38 

6 

-0,810833333 

0,020408163 

Error  estimado  >  .01 

39 

7 

-0,831241497 

0,015625 

Error  estimado  >  .01 

40 

8 

-0,815616497 

0,012345679 

Error  estimado  >  .01 

41 

100 

-0,822417533 

9.80296E-05 

OK,  error  estimado  <  .01 

Podemos  implementar  dos  macros:  una  para  el  cálculo  de  las  sumas  parciales  y  otra  para  hacer  la  verificación  del 
error  estimado.  En  este  caso,  vamos  a  suponer  que  TOL  está  en  la  celda  B33 


Código  VBA  E.5: 


Function  sumaParcial (hastaN) 

Dim  Acum, 

Dim  signo  As  Integer 

Acum  =  0  signo  =  -1 

For  k  =  1  To  hastaN 

Acum  =  Acum  +  signo  *  1  /  k  A  2 
signo  =  -signo 

Next  k 

sumaParcial  =  Acum 

End  Function 

rem - 

Function  verificaTol  (N,  Tol) 

If  (1  /  (N  +  1)  A  2  >  Tol)  Then 

verificaTol  =  "Error  estimado  >  "  +  Str(Tol)  rem  Tol  es  un  número 
Else  rem  no  una  String; 

verificaTol  =  "OK,  error  estimado  <"  +  Str(Tol)  rem  por  esto  debemos  usar  rem  Strrem 

End  If 

End  Function 


En  la  primera  llamada  de  las  macros  se  usó  sumaParcial  (C33)  y  verificaTol  (C33;  B$33) 

Segundo  problema 

Dada  una  tolerancia  TOL,  aproximar  la  suma  de  la  serie  con  una  cantidad  N  de  términos  lo  suficientemente  grande 
de  tal  manera  que 


(N  +  l)2 


<  TOL. 
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1.  Primera  solución: 


Dado  que  hay  que  sumar  hasta  el  término  N-ésimo  tal  que 
entero  positivo  N,  quedando: 


1 

(N  + 1)2 


<  TOL,  en  este  caso  es  posible  despejar  el 


n>/S-1 

Tomamos  N  como  la  parte  entera  superior  de  \J  jIjt.  —  1,  lo  que  equivale  a  calcular  la  parte  entera  de  \J  es 
decir. 


N  — 


(parte  entera) 


Los  pasos  a  seguir  para  programar  la  suma  a  partir  de  la  tolerancia  dada,  son  los  siguientes: 


Inicio:  Ingresa  la  tolerancia  con  que  se  hará  la  aproximación. 

Paso  1:  Calcular  N  = 

Paso  2:  Acum  =  0  (Se  iniciliza  el  acumulador  para  la  suma). 
Paso  3:  Para  k  =  1...N: 

Acum  =  Acum  +  (  — 

Paso  4:  Retorne  Acum. 

Fin. 
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Observe  que  en  cada  sumando,  se  incluye  el  factor  (— 1)  ,  que  en  la  práctica,  más  que  una  potencia,  lo  que  in¬ 
dica  es  el  cambio  de  signo  en  los  términos  sucesivos.  Para  evitarle  al  programa  cálculos  innecesarios,  podemos 
inicializar  una  variable  signo  en  —1  y  en  cada  paso  de  la  instrucción  repetitiva  se  cambia  al  signo  contrario. 


1 

A 

B  C 

D 

E 

2 

Aproximación  de  una  serie  alternada 

3 

Primera  solución:  USANDO  FOR  K=1  TO  N 

4 

_ 

Tol 

N 

Suma  Parcial 

Error  estimado 

5 

1 

1 

-1,00000000000000 

0,25 

6 

7 

0.1 

3 

-0,86111111111111 

0,0625 

0,01 

10 

-0,82796217561099 

0,008264463 

8 

9 

10 

0,001 

31 

-0,82297055860543 

0,000976563 

0,0001 

100 

-0,82251753337413 

9.80296E-05 

0,00001 

316 

-0,82246204205917 

9,951 34E-06 

11 

12 

0,000001 

1000 

-0,82246753392411 

9.98003E-07 

0,0000001 

3162 

-0,82246698343114 

9.99543E-08 

13 

14 

15 

0,00000001 

10000 

-0,82246703842461 

9.998E-09 

1E-09 

31622 

-0,82246703292409 

9.99986E-1 0 

1E-10 

100000 

-0,82246703347410 

9.9998E-1 1 

La  macro  correspondiente  a  este  programa  puede  escribirse  como  sigue: 


Código  VBA  E.6: 


Function  SumaParcial  (Tol) 

Acum  =  0  signo  =  -1 
N  =  Int (1  /  Sqr (Tol) ) 

For  k  =  1  To  N 

Acum  =  Acum  +  signo  *  1  /  k  A  2 
signo  =  -signo 

Next  k 

SumaParcial  =  Acum 

End  Function 


2.  Segunda  solución: 

En  esta  solución  no  es  necesario  calcular  el  valor  de  N,  sino  que  se  suman  los  términos  mientras  no  se  haya 
alcanzado  la  tolerancia.  El  programa  en  seudocódigo  se  puede  escribir  como  sigue: 

Inicio:  Ingresa  la  tolerancia  con  que  se  hará  la  aproximación. 

Paso  1:  Iniciar  con  N  —  1. 

Paso  2:  Acum  =  -1  (Se  iniciliza  el  acumulador  para  la  suma  con  el  primer  término). 
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Paso  3:  Mientras  — — — ~  >  Tol  : 

(N  +  l)2 

. N=N+ 1 

.  Acum  =  Acum  +  (  —  1)N— 

N2 

Paso  4:  Retome  Acum. 

Fin  . 


El  código  es 


Código  VBA  E.7: 


Function  SumaParcial2  (Tol) 

N  =  1  Acum  =  -1  signo  =  1 
While  (1  /  (N  +  1)  A  2  >  Tol) 
N  =  N  +  1 


Acum  =  Acum  +  signo  *  1  /  N 
signo  =  -signo 

Wend 

SumaParcial2  =  Acum 

End  Function 


2 


E.5.4  Declaración  de  variables  en  un  programa 

Las  variables  en  un  programa  pueden  ser  declaradas  de  un  tipo  explícito,  dependiendo  de  si  es  de  tipo  numérico,  tira 
de  caracteres  ( String ),  etc.  Cada  tipo  de  variable  ocupa  una  cantidad  de  memoria  diferente,  por  lo  que  es  importante 


PROGRAMACIÓN  VISUAL  BASIC  (VBA)  PARA  EXCEL  31 3 


en  un  programa  hacer  una  definición  apropiada  de  los  tipos  de  variable,  con  el  fin  de  que  la  memoria  sea  utilizada 
eficientemente  y  los  programas  sean  corridos  a  una  velocidad  adecuada. 

En  caso  de  que  a  una  variable  no  se  declare  un  tipo  de  datos,el  compilador  le  asigna  un  tipo  especial  llamado  Variant. 
Este  tipo  admite  datos  numéricos,  de  cadena,  de  fecha,  así  como  tipos  definidos  por  el  usuario  y  los  valores  especiales 

Empty  y  Nuil. 

Las  variables  pueden  declararse  en  tres  lugares  diferentes. 

•  A  las  variables  que  son  declaradas  dentro  de  una  función  o  subrutina  se  les  llama  variables  locales.  Estas  sólo 
pueden  ser  utilizadas  en  instrucciones  que  estén  dentro  de  esa  función  o  subrutina.  Una  variable  local  solo  es 
conocida  y  utilizable  dentro  del  código  de  esa  función  o  subrutina  y  es  desconocida  por  cualquier  otra  función 
o  subrutina. 

Por  ejemplo,  en  la  siguiente  función,  las  variables  Suma  y  a  son  variables  locales: 


Código  VBA  E.8: 


Function  MiSuraa(x) 

Dim  a  as  Double 

a=l 

Suma  =  a  +  x 
Mi Suma  =  Suma 

End  Function 


•  También  se  puede  declarar  una  variable  como  parametro  de  una  función  o  subrutina.  Al  ser  invocada  esta 
función,  este  parámetro  debe  tener  un  valor  específico  y  luego  puede  actuar  como  variable  local  en  esa  función 
o  subrutina.  En  el  ejemplo  anterior,  la  variable  x  sirve  como  parámetro  de  la  función  MiSuma. 

•  También  se  puede  declarar  una  variable  fuera  de  todas  las  funciones  o  subrutinas.  A  este  tipo  de  variables  se 
les  llama  variables  globales  y  pueden  ser  utilizadas  y  alteradas  por  cualquier  función  o  subrutina  del  programa. 

En  el  siguiente  ejemplo,  la  Variable  Acumulador  es  global 


Código  VBA  E.9: 


Dim  Acumulador  as  Double 

Function  Suma2(t) 
Acumulador=2 

Suma2  =  2*Acumulador  +  t 

End  Function 

Sub  OtrasOperaciones ( ) 
M=Suma2 (5) 

Acumulador=3*Acumulador 

End  Sub 


Al  correr  esta  última  subrutina,  la  variable  local  M  toma  el  valor  de  9  a  nivel  local  y  desaparece  una  vez  que  se  ha 
ejecutado  la  segunda  instrucción  de  la  subrutina,  mientras  que  la  variable  Acumulador  toma  por  primera  vez 
el  valor  de  2,  al  ser  definido  por  la  función  Suma2.  Luego  este  valor  de  2  es  multiplicado  por  3  en  la  subrutina 
OtrasOPeraciones,  finalizando  con  un  valor  de  6,  que  no  desaparece  cuando  han  terminado  las  instruc¬ 
ciones  de  dicha  subrutina. 
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El  siguiente  es  otro  ejemplo  de  uso  de  una  variable  global,  que  incluye  un  proceso  previo  de  borrado. 

Limpiando  celdas  entre  diferentes  corridas  de  un  programa. 


A 

B 

C 

1 

N  =  25 

Divisores 

2 

1 

3 

5 

4 

25 

5 

Dado  un  número  entero  positivo  N  que  se  coloca  en  la  celda  Bl,  el  programa  calcula  todos  los  divisores  de 
N,  incluyendo  el  1  y  el  mismo  número  N,  y  los  imprime  en  la  tercera  columna.  Se  ha  definido  una  variable 
global  llamada  Conta  que  servirá  para  contar  la  cantidad  de  divisores  que  tiene  N.  Al  cambiar  el  valor  de  N  y 
ejecutar  de  nuevo  el  programa,  la  variable  global  tiene  almacenada  el  número  de  celdas  utilizadas  en  la  corrida 
previa.  En  la  primera  ejecución  del  programa,  la  variable  global  tiene  almacenado  un  valor  de  cero,  por  lo  que 
no  ejecuta  ningún  borrado. 


El  código  de  este  programa  es: 


Código  VBA  E.10: 


Dim  Conta  As  Long 

Sub  ImprimirDivisores ( ) 

dim  k  as  Long 

N  =  Cells  (1,  2) 

rem  borrar  celdas  hasta  donde  imprimió  la  vez  anterior 
For  k  =  1  To  Conta 
Cells  (1  +  k,  3)  =  Nuil 

Next  k 

Conta  =  0 

For  k  =  1  To  N 

If  (  (N  Mod  k)  =  0)  Then 

Conta  =  Conta  +  1 
Cells  (1  +  Conta,  3)  =  k 

End  If 
Next  k 
End  Sub 


E.5.5  Tipos  de  datos 

La  siguiente  tabla  describe  algunos  de  los  principales  tipos  de  datos  y  que  son  de  interés  en  el  presente  material: 
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Tipo 

Memoria 

Rango  Aproximado 

Byte 

1  byte 

0...255 

Boolean 

2  bytes 

True,  False 

Integer 

2  bytes 

-32763. ..32767 

Long 

(entero  grande) 

4  bytes 

-2147483648. ..2147483647 

Single 

(punto  flotante  de  precisión  simple) 

4  bytes 

—3.4  x  1038  ■  ■  ■  —  1.4  x  1CD45  para  valores  negativos 

1.4  x  1CT45  •  •  •  3.4  x  1038  para  valores  positivos 

Double 

(punto  flotante  de  doble  precisión) 

8  bytes 

4.9  x  1CT324  •  ■  ■  —  4.9  x  1CT324  para  valores  negativos 

1.8  x  10308  •  ■  ■  3.4  x  1038  para  valores  positivos 

Variant 

(numérico) 

16  bytes 

Cualquier  valor  numérico  hasta  el  tamaño  del  tipo  Double 

E.5.6  Manejo  de  rangos 

Un  rango  en  Excel  corresponde  a  una  selección  de  celdas.  Una  selección  de  las  celdas  de  una  fila  o  una  columna  se 
maneja  en  Excel  como  una  matriz  de  orden  lxn  o  de  orden  n  x  1  (un  vector).  La  selección  de  un  bloque  de  celdas 
se  maneja  como  una  matriz  n  x  m.  Si  una  celda  está  en  blanco,  se  lee  un  cero. 


Calculando  un  promedio  simple.  Consideremos  una  tabla  con  5  notas,  todas  con  igual  peso. 


A  B  C 

D 

E 

F 

G 

H 

Promedio  Simple 

Nombre 

NI 

N2 

N3 

N4 

N5 

Promedio 

Pedro  Pérez 

40 

85 

90 

80 

30 

65 

Ana  Pe  re  ira 

55 

66 

77 

89 

100 

77,4 

Victoria  Chine] 

100 

100 

0 

100 

90 

78 

Para  calcular  el  promedio  simple,  en  cada  fila,  vamos  a  hacer  una  macro  que  recibe  un  rango,  cuenta  las  notas,  suma 
y  divide  entre  el  número  de  notas. 


Código  VBA  E.ll: 


Function  PromedioSiraple  (R  As  Range)  As  Double 
rem  R  es  la  variable  que  recibe  el  rango 

Dim  n  As  Integer 
Dim  suma  As  Double 

suma  =  0 

n  =  R.EntireColumn.Count  rem  cantidad  de  notas  en  el  rango 

For  Each  x  In  R  rem  suma  de  las  notas 

suma  =  suma  +  x 


Next  x 
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PromedioSimple  =  suma  /  n 

End  Function 


rem  promedio  simple 


En  la  primera  celda  de  la  columna  Promedio,  llamamos  a  la  macro  con:  PROMEDIO  (C63 :  G63 )  pues  en  este  caso  el 
rango  es  C63:G63. 

Calculando  el  promedio  de  varias  calificaciones  eliminando  las  dos  más  bajas.  En  este  caso,  a  un  conjunto  de 
calificaciones  les  calculamos  el  promedio  simple  pero  eliminando  las  dos  notas  más  bajas.  El  programa  PromedioQ 
suma  las  n  notas  de  una  fila  (rango),  localiza  la  posición  (en  el  vector  R)  de  las  dos  notas  más  bajas  y  luego  le  resta 
a  la  suma  estas  dos  notas  para  luego  dividir  entre  n  —  2.  En  este  caso,  el  rango  R  es  una  matriz  1  x  n,  o  sea,  se  puede 
ver  como  un  vector  de  n  componentes. 


H65 

fx  =Pro  rn  e  d  i  o  Q  (065 :  G65) 

A 

Ei 

C 

D 

E 

F 

G 

H 

60 

Promedio  de  notas  excluyendo  las  dos  más  bajas 

61 

62 

Nombre 

NI 

N2 

N3 

N4 

N5 

Promedio 

63 

Pedro  Pérez 

40 

85 

90 

80 

30 

85 

64 

Ana  Pe  reira 

55 

66 

77 

89 

100 

88,66667 

65 

Victoria  Chincj 

100 

100 

0 

100 

90 

100 

— ¿i 

Código  VBA  E.12: 


Function  PromedioQ  (R  As  Range)  As  Double 

Dim  n,  i,  Iminl,  Imin2  As  Integer 
Dim  suma  As  Double 

suma  =  0 

n  =  R. EntireColumn . Count  rem  número  de  elementos  de  la  selección 

For  i  =  1  To  n 

suma  =  suma  +  R(l,  i)  rem  R  es  una  matriz  lxn  (o  sea,  un  vector) 
Next  i  rem  En  R  no  se  hace  referencia  a  la  celda 

Iminl  =  1  rem  POSICION  de  la  primera  nota  mínima  en  R 

For  i  =  1  To  n 

If  R  ( 1 ,  i)  <  R  ( 1 ,  Iminl)  Then 
Iminl  =  i 

End  If 
Next  i 

Imin2  =  1  rem  POSICION  de  la  segunda  nota  mínima  en  R 

If  Iminl  =  1  Then 
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Imin2  =  2 

End  If 

rem  comparar  con  todos  excepto  Imin 

For  i  =  1  To  n 

If  (R(l,  i)  <  R(l,  Imin2))  And  (i  <>  Iminl)  Then 
Imin2  =  i 

End  If 
Next  i 

PromedioQ  =  (suma  -  R(l,  Iminl)  -  R(l,  Imin2))  /  (n  -  2) 

End  Function 


Nota:  También  podríamos  resolver  este  problema  usando  Selection .  Sort  pero  la  programación  es  un  poco  más 
compleja. 


E.5.7  Subrutinas.  Edición  y  ejecución  de  una  subrutina 

Las  subrutinas  o  procedimientos  es  otro  de  los  tipos  básicos  de  programas  en  Visual  Basic.  Una  descripción  de  la 
sintaxis  de  una  subrutina  que  no  es  completa,  pero  sí  suficiente  para  los  alcances  de  este  libro  es  la  siguiente: 


Sintaxis: 

Sub  Nombre_de_Subrutina  ([lista-argumentos  ]) 

[instrucciones  ] 

End  Sub 

o  también 

[Private  ¡  Public]  [Static]  Sub  Nombre-de-Subru tma([lista-argumentos  ]) 
[instrucciones  ] 

End  Sub 


Además: 
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Public.  Es  opcional.  Indica  que  la  subrutina  puede  ser  llamada  por  todas  las  demás  subrutinas  sin  importar 
donde  se  encuentre. 


Prívate.  Es  opcional.  Indica  que  la  subrutina  puede  ser  llamada  solamente  por  otras  subrutinas  que  se  encuen¬ 
tren  en  el  mismo  módulo* 3. 


Static.  Es  opcional.  Indica  que  las  variables  locales  de  la  subrutina  se  mantienen  constantes  de  una  llamada  a 
otra.  El  ámbito  de  acción  de  esta  declaración  no  incluye  a  variables  declaradas  fuera  de  la  subrutina. 


Nombre_De_Subrutina.  Es  requerido.  Indica  el  nombre  de  la  subrutina. 


lista-argumentos.  Es  opcional  e  indica  las  variables  que  conforman  los  argumentos  con  que  una  subrutina  es 
llamada.  Para  separar  una  variable  de  otra  se  escribe  una  coma. 


instrucciones.  Es  opcional  y  conforma  el  conjunto  de  instrucciones  que  son  ejecutadas  a  lo  largo  de  la  subrutina. 


Elevar  al  cuadrado  los  valores  de  una  selección  y  ejecutar  desde  la  ventana  de  ejecución  de  macros. 


A 

B 

C 

1 

2 

1 

4 

81 

3 

4 

9 

100 

4 

9 

16 

121 

5 

16 

25 

144 

6 

25 

36 

0 

7 

36 

49 

0 

8 

49 

64 

0 

9 

81 

0 

0 

10 

100  ] 

0 

0 

A 

B 

C 

1 

2 

-1 

2 

9 

3 

-2 

3 

10 

4 

-3 

4 

11 

5 

-4 

5 

12 

6 

-5 

6 

7 

-6 

7 

8 

-7 

8 

9 

-9 

10 

-10 

Podemos  implementar  una  subrutina  en  una  hoja,  que  recorra  una  selección  hecha  con  el  mouse  y  que  eleve  al  cuadrado 
el  valor  de  cada  celda. 


Código  VBA  E.13: 


Sub  elevAlCuadado ( ) 

For  Each  cell  In  Selection.Cells  rem  para  cada  celda  de  la  selección 
cell. Valué  =  cell. Valué  A  2  rem  recalcula  el  valor  de  la  celda 

Next  cell 
End  Sub 


Nota:  La  macro  se  aplica  a  los  datos  que  están  actualmente  seleccionados. 


3Aparte  de  la  posibilida  de  declarar  la  subrutina  como  Prívate  o  Public,  también  declarar  como  Friend,  pero  esto  tiene  que  ver  más  con  la  progra¬ 
mación  orientada  a  objetos 
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•  Para  editar  la  subrutina,  vamos  al  editor  VB  (Alt-Fll)  y  hacemos  doble-clic  sobre  (Ho  jal) 


Hoja^rangosl.xls" 


icoft  Visual  Basic  -  rangos1.xls  -  [Hojal  (Código)] 


Archivo  dición  Ver  Insertar  Formato  Depuración  Ejecutar  Herramienta 


|<Geneial) 


Sub  elevAlCuadrado ( ) 

For  Each  cell  In  Selection. Cells 
cell. Valué  =  cell. Valué  A  2 
Next  cell 
End  Sub 


La  subrutina  está  en  la  Hoja  1 


Escribimos  el  código,  compilamos  (en  menú  Depuración),  guardamos  y  nos  devolvemos  a  la  hoja. 


•  Para  ejecutar  la  macro  seleccionamos  la  tabla  con  el  monse  y  levantamos  la  ventana  de  ejecución  de  macros  (Alt-F8) 
y  damos  clic  en  "Ejecutar" 


Nota:  Esta  subrutina  también  se  puede  editar  en  un  módulo.  Para  ejecutarla  se  procede  de  la  misma  forma. 


E.5.8  Ejecución  de  una  subrutina  mediante  un  botón 

Otra  posibilidad  bastante  práctica  para  ejecutar  un  programa  o  subrutina  como,  los  presentados  en  la  sección  prece¬ 
dente,  es  mediante  un  botón  de  comando. 


Elevar  al  cuadrado  los  valores  de  una  selección.  Ejecutar  mediante  un  botón. 

1.  Primero  digitamos  la  tabla  de  valores.  Luego  insertamos  un  botón.  Para  ésto  seleccionamos  un  botón  de  co¬ 
mando  del  cuadro  de  controles  (si  la  barra  no  está  disponible,  puede  habilitarla  con  Ver  -  Barra  de  herramientas 
-  Cuadro  de  Controles). 
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&  t*'  L_T. (?  US  m  ¿  ±1 


E3 

▼ 

1  A 

B 

C 

Botón  de  comando  1 

1  1 

1 

-9 

2  2 

2 

-8 

3  3 

3 

-7 

! 

4  4 

-6 

5  5 

5 

-5 

6  6 

6 

-4 

7  7 

8  8 

2.  Luego  hacemos  clic  en  el  lugar  de  la  hoja  donde  queremos  el  botón.  Una  vez  que  tenemos  el  botón,  podemos  agregar 
algunas  propiedades  como  etiqueta,  color  de  fondo,  etc.,  en  el  menú  de  contexto.  Este  menú  se  abre  con  clic 
derecho  +  propiedades.  Luego  cerramos  el  menú. 


o  o  p 

n  F 1  oL  r  1 1  o  r\  t  ht 

Cortar 

ÍRi  Copiar 
fe  Pegar 

£§*  Propiedades 

<üp  Ver  código 

Objeto  Botón  de  comando  ► 

Agrupar  ► 

Ordenar  ► 

Formato  de  control.., 

A 

B 

C 

D 

E 

F 

1 

1 

1 

-9 

2 

2 

2 

-8 

3 

3 

3 

-7 

4 

4 

-6 

Elevar-al-cuadrado 

5 

5 

5 

-5 

6 

6 

6 

-4 

7 

7 

8 

8 

3. 


Para  editar  el  código  que  deberá  ejecutar  el  botón,  le  damos  un  doble  clic  al  botón  (que  todavía  está  en  modo 
diseño).  En  este  caso,  si  es  la  primera  vez,  nos  aparece  el  código: 
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Código  VBA  E.14: 


Private  Sub  CommandButtonl_Click  ( )  End  Sub 


Aquí  tenemos  dos  opciones: 


a.)  Implementar  la  subrutina  por  separado  y  luego  llamarla  desde  la  subrutina  del  botón. 


Código  VBA  E.15: 


Sub  elevAlCuadado () 

For  Each  cell  In  Selection . Cells  rem  para  cada  celda  de  la  selección 
cell. Valué  =  cell. Valué  A  2  rem  recalcula  el  valor  de  la  celda 

Next  cell 
End  Sub 

rem - 

Private  Sub  CommandButtonl_Click  ( ) 

elevAlCuadado  rem  sin  paréntesis 

End  Sub 

rem - 


b.)  Incluir  en  la  subrutina  del  botón  lo  que  queremos  que  se  ejecute  cuando  se  haga  clic  sobre  él. 


Código  VBA  E.16: 


Private  Sub  CommandButtonl_Click  ( ) 

For  Each  cell  In  Selection . Cells  rem  para  cada  celda  de  la  selección 
cell. Valué  =  cell. Valué  A  2  rem  recalcula  el  valor  de  la  celda 

Next  cell 
End  Sub 


4.  Una  vez  que  escogemos  alguna  de  las  dos  opciones  anteriores,  compilamos  (en  menú  Depurar),  guardamos  y 
nos  devolvemos  a  la  hoja. 


5.  Para  habilitar  el  botón  debemos  deshabiltar  el  icono  de  diseño 


6.  Ahora  solo  resta  seleccionar  la  tabla  y  hacer  clic  sobre  el  botón. 


Observe  que  al  dar  un  clic  sobre  el  botón,  el  programa  opera  sobre  lo  que  tengamos  seleccionado  previamente 
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A 

B 

C 

D 

E  |  F 

1 

1 

1 

-9 

2 

2 

2 

-8 

3 

3 

3 

-7 

4 

4 

-6 

Elevar-al-cuadrado 

5 

5 

5 

-5 

6 

6 

6 

-4 

7 

7 

8 

8 

E.5.9  Matrices  dinámicas 

Cuando  hacemos  una  selección  con  el  mouse,  es  conveniente  ingresar  los  valores  seleccionados  en  una  matriz  dinámica, 
es  decir,  una  matriz  que  se  ajuste  a  la  cantidad  de  datos  seleccionada  y  que,  eventualmente,  se  pueda  recortar  o  hacer 
más  grande. 

Una  matriz  dinámica  mtrl  de  entradas  enteras  se  declara  así: 


Dim  mtrl()  As  Integer  rem  Declara  una  matriz  dinámica. 


Las  instrucciones  siguientes  le  dan  un  tamaño  de  la  matriz  mtrl  y  la  inicializa.  Observe  el  uso  de  Redim  para 
cambiar  el  tamaño  de  la  matriz  dinámica. 


Código  VBA  E.17: 


Dim  mtrl()  As  Integer 
r()  as  Double 

%Preguntar  que  hacer  aquí 
Redim  mtrl  (10) 

1x10.  Redim  r(n,m) 


rem  Declara  una  matriz  dinámica  mtrl.  Dim 
rem  Declara  una  matriz  dinámica  r. 

rem  Cambia  el  tamaño  a  10  elementos, 
rem  Cambia  tamaño  a  n  x  m 


For  i  =  1  To  10 

mtrl  (i)  =  i 

Next  i 


rem  Bucle  10  veces, 
rem  Inicializa  la  matriz. 


Usando  Preserve  se  puede  cambiar  el  tamaño  de  la  matriz  mtrl  pero  sin  borrar  los  elementos  anteriores. 

Redim  Preserve  mtrl (15)  rem  Cambia  el  tamaño  a  15  elementos. 


Centro  de  gravedad  de  un  conjunto  de  puntos  en  el  plano  cartesiano.  Consideremos  un  conjunto  O  = 

n 

{( Xj,y¡ )  /  i  —  1,2,- •  •  ,n,  Xj,yi  €  IR}.  Supongamos  que  a  cada  punto  (x¡, y¡)  se  le  asigna  un  peso  p¡  tal  que  y,  p¡  —  1. 

i—l 
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El  centro  de  gravedad  Gn  de  O  se  define  así: 

n  (  n  n 

Gn  =  E Pí(xí'xJí)  -  Lpíxí'LpíxJí 

i—l  \i'=l  i= 1 

Por  ejemplo,  si  tenemos  dos  puntos  A(xi,yi),B(x2,y2)  £  IR2  con  igual  peso  (este  deberá  ser  1/2  para  cada  punto), 
entonces  el  centro  de  gravedad  es  el  punto  medio  del  segmento  que  une  A  con  B 

Gn  =  ife,yi)  +  ffey2)  =  (^,^) 


La  subrutina  que  calcula  el  centro  de  gravedad  de  un  conjunto  de  puntos  ÜCK2  actúa  sobre  un  rango  de  tres 
columnas  en  el  que  se  han  escrito  las  coordenadas  (x,y)  de  dichos  puntos,  así  como  sus  pesos.  Podemos  correr  el 
programa  una  vez  que  se  ha  seleccionado  el  rango  completo  en  el  que  se  ubican  los  puntos  y  sus  pesos,  haciendo  clic 
sobre  un  botón  "Centro  Gravedad".  El  gráfico  es  un  trabajo  adicional  que  se  puede  hacer  con  el  asistente  de  gráficos. 

Como  el  programa  necesita  que  el  usuario  haya  seleccionado  al  menos  dos  filas  y  exactamente  tres  columnas,  in¬ 
cluimos  un  fragmento  de  código  adicional  para  controlar  la  selección. 


Código  VBA  E.18: 


Set  R  =  Selection  n  =  R.Rows.Count  rem  Número  de  filas  m  = 
R.Columns.Count  rem  Número  de  columnas 

If  n  >  1  And  m  =  3  Then 

rem  todo  está  bien,  el  programa  continúa 

Else 

MsgBox  ("Debe  seleccionar  los  datos") 

Exit  Sub  rem  salimos  de  la  subrutina 

End  If 


Observemos  que  si  no  se  cumple  el  requisito,  se  envía  un  mensaje  y  la  subrutina  se  deja  de  ejecutar.  Puede  causar 
curiosidad  que  antes  del  Else  no  haya  código.  A  veces  se  usa  esta  construcción  por  comodidad.  Si  no  hay  código 
el  programa  continúa. 

Veamos  el  código  completo  en  la  subrutina  del  botón 


Código  VBA  E.19: 


Private  Sub  CommandButton2_Click  ( ) 

Dim  R  As  Range 

Dim  n,m,  i  As  Integer 

Dim  x()  As  Double  rem  matriz  dinámica 

Dim  y  ( )  As  Double  rem  se  ajustará  a  la  selección  de  datos 

Dim  p()  As  Double 

Dim  Sumapesos,  Gx,  Gy  As  Double 
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rem  En  el  rango  R  guardamos  el  rango  seleccionado : 

Set  R  =  Selection 

n  =  R.Rows.Count  rem  Número  de  filas 

m  =  R.Columns  .Count  rem  Número  de  columnas 

rem  chequear  que  se  hayan  seleccionado  los  datos  de  la  tabla 

If  n  >  1  And  m  =  3  Then 

rem  todo  está  bien,  el  programa  continua 

Else 

MsgBox  ("Debe  seleccionar  los  datos") 
rem  salimos  de  la  subrutina 

Exit  Sub 

End  If 


ReDim  x(n) 
ReDim  y (n) 
ReDim  p  (n) 


rem  vector  x  tiene  ahora  n  campos 


Sumapesos 
Gx  =  0 
Gy  =  0 


rem  inicializa  para  acumular 


rem  inicializa  las  matrices  con  los  datos 


For  i  =  1  To  n 

x ( i )  =  R(i,  1)  rem  entra  los  datos  de  columna  de  los  xrem  s 

y  (i)  =  R(i,  2) 
p  ( i)  =  R(i,  3) 

rem  calcula  centro  de  gravedad 
Sumapesos  =  Sumapesos  +  p ( i ) 

Gx  =  Gx  +  x(i)  *  p(i) 

Gy  =  Gy  +  y  (i)  *  p  (i) 

Next  i 

If  Abs  (Sumapesos  -  1)  <  0.001  Then  rem  la  suma  de  los  pesos  debe  ser  1 
Gx  =  Gx  /  Sumapesos 
Gy  =  Gy  /  Sumapesos 

rem  escribe  G  en  la  celda  D14 
Cells  (14,  4)  =  "G  =  ("  +  Str (Gx)  +  +  Str(Gy)  +  ")" 

Cells(14,  5)  =  ""  rem  limpia  E14  de  mensajes  previos 

Else 

rem  mensaje  de  error 

Cells  (14,  5)  =  "Error,  los  pesos  suman  "  +  Str (Sumapesos) 

Cells  (14,  4)  =  ""  rem  limpia  D14  de  valores  previos 

End  If 


End  Sub 


Nota:  Por  cuestiones  de  redondeo,  la  instrucción  If  Sumapesos  =  1  se  cambió  por  If  Abs  (Sumapesos  - 
1)  <  0.001  . 


Un  ejemplo  de  corrida  se  ve  en  la  figura  que  sigue 
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11 

12 

13 

X 

y 

i> 

G 

Mensaje 

14 

-1 

0,5 

0,167  G 

(1.25,  1.33333333333333) 

15 

2 

0,5 

0,167 

16 

3 

2 

0,167 

17 

1 

3 

0,167 

18 

1 

1.5 

0,167 

19 

1.5 

0,5 

0,167 

VP  * 

20 

1 

*6 - 

21 

22 

- ♦- 

- •  * - 

23 

- . - 0-1 

- 1 - 

- 1 - 1 - 

24 

-1 

1 

2  3 

EJERCICIOS 

1.  Usando  la  notación  del  último  ejemplo,  se  define  la  inercia  total  de  O  como 


n 


Í(H)  =  E  Vi  1 1  -  Gol 

!  =  1 


2 


donde  1 1  (a,b)  \  \  =  Va2  +  b2  es  la  norma  usual. 

Implemente  una  subrutina  que  calcula  la  Inercia  Total  de  O  y  aplíquela  a  la  tabla  del  ejemplo  8. 
2.  Si  tenemos  puntos  {(xi,j/i),  (*2,1/2)/ ' ' '  (xn/]/n)  },  se  define 


(x  -*!)■■■  (x  -  Xj_ i)(x  -  Xi+l)  ■■■(*-  X„) 
mX  (x¿  -  X 1)  •  •  ■  (x¿  -  X¿_1)(x,  -  Xí+1)  ■  ■  ■  (x¿  -  Xn) 

O  sea,  en  L,„  (x)  se  elimina  el  factor  (x  —  x,)  en  el  numerador  y  el  factor  (x,  —  x¿ )  en  el  denominador 

Implemente  una  hoja,  como  se  ve  en  la  figura,  en  la  que  el  usuario  hace  una  selección  de  la  tabla  y  al  hacer  clic 
en  el  botón,  se  calcula  L2,¡(2.56) 


A 

B 

c 

D 

1 

x¡ 

y¡ 

X 

L?n(x) 

2 

2.2 

0.3 

II  2.56 

? 

3 

2.3 

2.3 

4 

2.4 

3.2 

Calcular 

5 

_ 

2.1 
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Código  VBA  E.20: 


Set  R  =  Selection 

n  =  R.Rows.Count  rem  Número  de  filas 

ReDim  x(n)  rem  vector  x  tiene  ahora  n  campos 

ReDim  y (n )  rem  vector  y  tiene  ahora  n  campos 

valorX  =  Cells(2,  3)  rem  valorX  está  en  celda  C2 
If  n  >  1  Then  rem  si  hay  datos  seleccionados ,  n  >  1 

For  i  =  1  To  n 

x ( i )  =  R(i,  1)  rem  entra  los  datos  de  columna  de  los  xirem  s  y  los  yirem  s 
y  (i)  =  R(i,  2) 

Next  i 

L2n=  1  rem  inicia  cálculo  de  L2n  (variable  x) 

For  j  =  1  To  n  rem  calculamos  L2n (valorX) 

If  j  o  2  Then 

L2n  =  L2n  *  (valorX  —  x  ( j )  )  /  (x(k)  -  x  ( j )  )  rem  L2n  evaluado  en  valorX 

End  If 
Next  j 

Cells  (2,  4)  =  L2n 

Else 

MsgBox  ("Debe  seleccionar  los  datos") 

Exit  Sub  rem  aborta  la  subrutina  si  no  hay  datos  seleccionados 

End  If 


3.  Si  tenemos  n  puntos  {  (x\,y\ ) ,  (x2,  t/2)  ,  •  •  ■  (xn,yn)  },  un  polinomio  que  pasa  por  todos  estos  puntos  se  llama 
Polinomio  Interpolante.  Un  polinomio  interpolante  muy  conocido  es  el  Polinomio  Interpolante  de  Lagrange 


p(x)  =  E 


¿=i 


A  (*  ~  *; ) 


y  i  E  P'n  (x) '  y  ‘ 

i=i 


donde  L¡n(x) 
o  sea 


(x  —  Xi)  •  ■  ■  (x  —  x¡_i)(x  —  X;_|_i)  ■  ■  ■  (x  —  Xn) 
(X¿  -  Xi)  ■  •  •  (x¿  -  xi_1)(x¿  -  Xi+i)  ■  ■  ■  (x¿  -  Xn) 


P(x) 


n 


(x  Xi )  ■  ■  ■  (x  X¡_!  )  (x  -  X/+1)  ■  ■  ■  (x  -  X„) 

Xo)(x¿  -  Xx)  ■  ••  (X¿  -  Xi-i)(Xi  -  x;+1)  ■  ■  ■  (x¿  -  Xn)XJl 


O  sea,  para  cada  valor  de  i  se  elimina  el  factor  (x  —  x¡)  en  el  numerador  y  el  factor  (x¡  —  x¡)  en  el  denominador 


Este  polinomio  cumple  P(x¡)  —y¡  i  —  1,2 ,...n. 

Por  ejemplo,  para  el  caso  de  tres  puntos  {x\,x¡\),  {x2,yi)  y  (x3/i/3)/  el  Polinomio  de  Lagrange  es 
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P(x) 


(x  —  X2){x  —  X3)  (x  —  X\)(x  —  X3)  (x  —  X3)(x  —  X2) 

(*i  -x2)(x1  -x3)yi  (x2  -x1)(x2  -x3)lj2  (x3-x1)(x3-x1)lj3 


(a)  Implemente  una  subrutina  que,  a  partir  de  una  selección  de  puntos  ( Xi,y¡ )  (en  dos  columnas)  en  una  hoja 
de  Excel,  evalúa  el  polinomio  interpolante  en  una  valor  dado  de  antemano  en  una  celda,  o  sea,  calcula  P{a) 
para  un  valor  a  dado. 


(b)  Aplique  la  implementación  anterior  a  una  tabla  como  la  que  se  presenta  en  la  figura 


Polinomio  de  Lagrange 

Xj 

y¡ 

a 

P(a) 

-1 

0,5 

3,5 

? 

2 

0,5 

3 

2 

4 

3 

5 

1,5 

6 

4,6 
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Código  VBA  E.21: 


suma  =  0  rem  inicializa  para  acumular 

If  n  >  1  Then  rem  si  hay  datos  seleccionados,  n  >  1 

For  i  =  1  To  n 

x(i)  =  R(i,  1)  rem  entra  los  datos  de  columna  de  los  xirem  s  y  los  yirem  s,  inicia 
y (i)  =  R(i,  2)  rem  aquí,  iniciamos  desde  xl,  es  decir  el  xO  de  la  teoría,  es  xl 

Next  i 


For  i  =  1  To  n 

Lin  =  1  rem  inicia  cálculo  de  Lkn 

For  j  =  1  To  n  rem  calculamos  Lkn  (valorX) 

If  j  <>  k  Then 

Lin  =  Lin  *  (valorX  -  x  ( j )  )  /  (x(i)  -  x  ( j )  )  rem  Lin  evaluado  en  valorX 

End  If 


Next  j 

suma  =  suma  +  Lin  *  y (i) 

Next  i 

Cells  (5,  4)  =  suma 

Else 


rem  ventana  de  advertencia:  seleccione  datos! 
MsgBox  ("Debe  seleccionar  los  datos") 

Exit  Sub  rem  aborta  la  subrutina  si  no  hay  datos  seleccionados 


ei 


End  If 
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E.5.10  Inclusión  de  procedimientos  de  borrado 

En  ocasiones  es  necesario  borrar  alguna  información  que  ha  sido  escrita  en  una  hoja  electrónica,  por  lo  que  es  impor¬ 
tante  conocer  una  forma  de  incorporar  en  la  aplicación  un  procedimiento  de  borrado. 

Presentamos  a  continuación  un  programa  que,  a  partir  de  un  número  N  construye  el  triángulo  de  Pascal  de  N  niveles. 
También  se  incluye  un  programa  que  funciona  como  borrador  o  destructor  del  triángulo. 

En  cada  nivel  del  triángulo  hay  un  uno  en  los  extremos  y,  a  partir  del  tercer  nivel,  cada  número,  salvo  los  extremos,  es 
la  suma  de  los  dos  de  arriba.  Concretamente,  el  triángulo  de  Pascal  es  un  arreglo  triangular  de  números  de  la  forma: 

1 

1  1 
1  2  1 

13  3  1 

1  4  6  4  1 

1  5  10  10  5  1 

1  6  15  20  15  1  6  1 

Por  simplicidad,  presentamos  un  programa  que  lee  el  número  de  niveles  del  triángulo  de  Pascal  en  la  celda  El  y  lo 
despliega  de  la  forma: 


Código  VBA  E.22: 


1 

1  1 
1  2  1 
13  3  1 
1  4  6  4  1 
1  5  10  10  5  1 


Tanto  la  construcción  del  triángulo  como  su  destrucción  pueden  ser  activados  mediante  botones.  Las  instrucciones 
que  realizan  estos  procedimientos  también  pueden  ser  incluidas  directamente  en  el  código  de  los  botones,  tal  y  como 
se  detalla  a  continuación. 

El  código  para  la  construcción  del  triángulo  quedaría  así: 


Código  VBA  E.23: 


Private  Sub  E jecucionDePascal_Click () 

rem  Lectura  de  la  cantidad  de  niveles: 

N  =  Cells (1,5) 
rem  Llenar  unos: 

For  i  =  1  To  N 

Cells (i, 1) =  1 
Cells(i,i)=  1 

Next  i 


rem  Llenar  el  resto: 
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If  N  >  2  Then 
For  i=3  To  N 

For  j=2  To  i— 1 

Cells(i,j)=  Cells(i-l,j)  +  Cells (i-1, j-1) 

Next  j 
Next  i 
End  If 
End  Sub 


El  procedimiento  para  borrar  el  triángulo  también  lee  el  número  de  niveles  en  la  celda  El  y  hace  el  mismo  recorrido 
de  celdas  que  hizo  el  constructor  y  en  cada  celda  escribe  un  valor  nulo. 


Código  VBA  E.24: 


Private  Sub  Borrador_Click  ( ) 

N  =  Cells  (1,  5) .Valué 

For  i  =  1  To  N 

For  j  =  1  To  i 

Cells  (i,  j) .Valué  =  Nuil 

Next  j 
Next  i 
End  Sub 


EJERCICIOS 

1.  Triángulo  de  Pascal.  Haga  un  programa  que,  al  activarlo  desde  un  botón  de  comando,  lea  un  un  número  N  de 
la  celda  Al  y  construya  el  triángulo  de  Pascal  en  la  forma: 


Código  VBA  E.25: 
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1 

1  1 

1  2  1 

13  3  1 

1  4  6  4  1 

1  5  10  10  5  1 


Además,  incluya  un  botón  que  active  un  destructor  especializado  para  este  triángulo. 


2.  Aritmética  entera.  En  VBA  hay  dos  tipos  de  división:  a/b  es  la  división  corriente  (en  punto  flotante)  y  a\b  que 
es  la  división  entera.  Por  ejemplo,  3/2  =  1 . 5  mientras  que  3\2  =  1. 

Hay  muchos  algoritmos  en  los  que  se  usa  exclusivamente  divisón  entera.  Veamos  un  ejemplo. 


Si  N  es  un  entero  positivo,  vamos  a  calcular  el  entero  más  grande  que  es  menor  o  igual  a  \/N ,  es  decir 
[VÑ\  cu  "  es  la  parte  entera).  El  algoritmo,  que  opera  en  aritmética  entera,  es  el  siguiente 


a. )  Inicio:  So  =  -j 

N 

s¡  H - 

b. )  si+1  =  — 2~^~,  i  —  0,1,2,... 

c. )  iterar  hasta  que  s¡+ 1  >  s¡ 

d. )  el  último  s¿  es  lVÑ\ 


Por  ejemplo  si  N  —  10,  VÑ  «  3,16227766  y  el  último  s¡  sería  3 


Implemente  el  algoritmo. 


3.  Números  primos.  Implemente  un  programa  para  hallar  el  número  primo  más  cercano  a  un  número  N,  siendo 
N  un  número  entero  positivo  mayor  que  uno.4 

Por  ejemplo,  los  números  primos  menores  o  iguales  que  50  son: 

2,  3,  5,  7, 19,  23,  29, 31,  37, 41, 43. 

Si  N  =  50,  el  programa  debería  retornar  el  número  43. 

Un  procedimiento  clásico  para  hallar  todos  los  números  primos  menores  que  un  entero  positivo  N,  es  la  lla¬ 
mada  criba  de  Eratóstenes.  Lo  que  se  hace  es  colocar  en  una  lista  todos  los  números  del  2  al  N  e  ir  eliminando  de 
esta  lista  todos  los  múltiplos  de  2  (4,  6,  8,  ...),  todos  los  múltiplos  de  3  (6,  9,  12,  ...),  y  así  sucesivamente,  hasta 

4Un  número  natural  p  >  1,  es  primo  si  sus  únicos  divisores  positivos  son  1  y  p.  En  caso  contrario,  es  un  número  compuesto. 
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eliminar  todos  los  múltiplos  de  los  primos  que  han  ido  quedando  en  la  lista  menores  o  iguales  que  \/Ñ. 


El  algoritmo  es5 


Datos:  Un  entero  n  >  2. 

Salida:  La  lista  de  primos  <  n 

1  v  =  2; 

2  Elimine  los  múltiplos  de  p  (desde  p2  en  adelante); 

3  Sea  p  =  primer  entero,  después  de  p,  que  no  fue  borrado.  Repita  el  paso  2.; 


E.6 


Evaluando  expresiones  matemáticas  escritas  en  lenguaje  matemático  común 


Un  evaluador  de  expresiones  matemáticas  o  un  "parser",  es  un  programa  que  determina  la  estructura  gramatical  de 
una  frase  en  un  lenguaje.  Este  es  el  primer  paso  para  determinar  el  significado  de  una  frase  tal  como  "xA2+y",  que 
para  un  lenguaje  de  programación  significa  traducirla  en  lenguaje  de  máquina. 

En  [9]  encontrará  un  "parser”  para  evaluar  expresiones  matemáticas  en  Visual  Basic.  Sin  embargo  funciona  bien  con 
Excel.  Además  nos  da  la  posibilidad  de  agregar  funciones  propias  más  complejas  además  de  las  que  trae  implemen- 
tadas  tales  como  Bessel  J  (x,  n) ,  HypGeom  (x,  a,  b,  c)  o  WAVE_RING  ( ) .  Por  ejemplo,  la  función  a  trozos.  Este  parser  fue 
desarrollado  por  Leonardo  Volpi  [9]. 


E.6.1  Usando  cIsMathParser.  Sintaxis 


Primero  descargamos  cIsMathParser.  zip  (el  adecuado  según  sea  Excel  2003  o  2007)  .Actualmente  existe  este 
complemento  en  versión  "Excel  97/2000/XP/2003"  y  versión  ”Excel2010and2007".  Las  instru-cciones  y  el  comple¬ 
mento  se  puede  descargar  (agosto  2012)  desde  http :  /  /www.  thetropicalevents .  com/Xnumbers60/.  La  fuente  original 
de  Xnumbers  (para  Excel  97/2000/XP/2003)  es  http :  / / digilander .  libero,  it/foxes/. 


Software:  Un  cuaderno  con  clsMathparser  Excel  2003. 


En  la  carpeta  cIsMathParser,  además  de  la  documentación  en  pdf,  vienen  dos  archivos:  cIsMathParser .  cls 
y  mMathSpecFun .  bas.  El  primero  es  el  parser  y  el  segundo  es  una  biblioteca  con  funciones  especiales  ya  imple- 
mentadas. 


Para  implementar  un  ejemplo  de  uso  del  parser,  implementamos  una  hoja  excel  como  la  que  se  ve  en  la  figura 


5Una  implementación  eficiente  puede  ser  encontrada  en  ([?]) 
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A 

B 

C 

D 

E 

F 

1 

2 

Usando  clsMathParser  (A  Classfor  Math  Expressions  Evaluation  in  Visual  Basic) 

3 

4 

5 

Fói  ínula 

Evaluar  en  x  = 

o 

6 

f(x)  = 

cos(xA2) 

f(Q)= 

1 

1.  En  el  editor  de  VBA,  seleccionamos  la  "Hojal"  y  hacemos  clic  en  el  botón  derecho  del  mouse.  Ahí  elegimos 

Importar  Archivo  ....  Luego  vamos  a  la  carpeta  clsMathParser  y  seleccionamos  clsMathParser  .  cls 


2.  De  la  misma  manera,  importamos  el  archivo  mMathSpecFun .  bas. 

Comentario.  Con  esto  ya  podemos  crear  un  objeto  Fun  con  Dim  Fun  As  New  clsMathParser  en  el 

código  del  botón.  Las  evaluaciones  se  llevan  a  cabo  con  Fun .  Evall  (xval) 


3.  En  el  editor  VBA  deberá  quedar  algo  parecido  a 


Proyecto 

-  clsMathParser 

□ 

|e  m 

D 

- 

-  clsMathParser  (Ejemplo. hIs) 

Él  Microsoft  Excel  Objetos 


Hojal  (Hojal) 


H]  Hoja2  (Hoja2) 

Hj  Hoja3  (Hoja3) 

Q  ThisWorkbook 
B  iS  Módulos 

mMathSpecFun 
É  Si  Módulos  de  clase 
©  clsMathParser  1 
+  <gá  EuroTool  (EUROTOOL.XLA) 


Comm.indButtonl 


Private  Sub  CommandButtonl_Click ( ) 

Dim  xval  As  Double 

Dim  Formula  As  String 

Dim  OK  As  Boolean 

Dim  Fun  As  New  clsMathParser 1 

Formula  =  Cells(6,  2) 
xval  =  Cells (5,  4) 

OK  =  Fun. StoreExpression (Formula) 


En  este  caso  el  módulo  de  clase  quedó  con  el  nombre  clsMathParser.  Así  que  el  objeto  Fun  se  construye 

con  Dim  Fun  As  New  clsMathParser 


4.  Finalmente  el  código  del  botón  es 


Código  VBA  E.26: 


Private  Sub  CommandButtonl_Click  ( ) 

Dim  xval  As  Double 

Dim  Formula  As  String 

Dim  FormulaEstaBien  As  Boolean 

Dim  Fun  As  New  clsMathParser  rem  crea  objeto  Fun 


Formula  =  Cells (6,  2) 
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xval  =  Cells  (5,  4) 

FormulaEstaBien  =  Fun .  StoreExpression  (Formula)  rem  leer  rem  Formularem  y  analizar  sintaxis 
If  Not  FormulaEstaBien  Then 
msgbox ( "Error "+Fun .ErrorDescript ion) 

Exit  Sub 

end  If 

Cells  (6,  3)  =  "f("  +  str(valx)  +  ")=  " 

Cells  (6,  4)  =  Fun. Evall (xval)  rem  evaluar  en  la  fórmula  actual 

End  Sub 


1.  Las  variables  deben  empezar  con  una  letra,  por  ejemplo  t,  xi,  time.  Para  evitar  la  ambigüedad,  xy  se 
interpreta  como  una  variable.  El  producto  requiere  *,  es  decir  x*y  es  el  producto  de  i  e  y .  Se  permite  multi¬ 
plicación  implícita  solo  para  x,y,  y  z,  o  sea,  por  ejemplo  2x  se  interpreta  como  2*x 


2.  Los  argumentos  de  una  función,  sihay  varios,  se  separan  con  una  coma,  por  ejemplo  max  (x,  y)  ,  root(x,y)  . 


3.  Las  expresiones  lógicas  retornan  1  o  0 .  Como  ejemplo  de  estas  expresiones  tenemos:  (x<=l )  ,  (2<x<2 ) .  Una 

expresión  como  " x  <  0  o  x  >  3"  se  introduce  como  (x<0)  +  (x>3) 


4.  La  expresión 


/(*)  = 


x2  +  x  si  x  <  0 


se  introduce  como  (x<0)  *  (xA2+x)  +  (x>2)  *  (log  (x) +sqr  (x) ) 


log(x)  +  \fx  si  x  >  2 

5.  (Manejo  de  signos)  Las  siguientes  expresiones  son  equivalentes 


Código  VBA  E.27: 

xA-n 

xA  (-n) 

x*-sin (a) 

x* (-sin (a) ) 

-5*-2 

-5* (-2) 

-xA2 

( — x) A2,  o  sea,  -3A2  =  (-3)A2  =  9 

6.  Constantes:  n  es  pi#  y  e  es  e#.  Por  ejemplo 


(a)  cos(x  +  7r)  +  ex  se  introduce  como  eos  (x+pi#)  +e#Ax 
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2  2 
(b)  e~x  se  debe  introducir  como  l/e#A(xA2)  o  como  e#A(-l*xA2)  pues  e#A(-xA2)  =  ex 

7.  Constantes  físicas. 


Constante  de  Planck 

h# 

6. 6260755e-34  J  s 

Constante  de  Boltzmann 

K# 

1 . 380658e-23  J/K 

Carga  elemental 

q# 

1.60217733e-19  C 

Número  de  Avogadro 

A# 

6.0221367e23  particles/mol 

Velocidad  de  la  luz 

c# 

2 . 99792458e8  m/s 

Permeabilidad  del  vacio  (  m  ) 

mu# 

12 . 566370614e-7  T2m3/J 

Permitividad  del  vacio  (  e  ) 

eps# 

8 . 854187817e-12  C2/Jm 

Masa  del  Electron 

me# 

9 . 1093897e-31  kg 

Masa  del  Protón 

mp# 

1.6726231e-27  kg 

Masa  del  Neutrón 

mn# 

n  1 . 6749286e-27  kg 

Constante  Gas 

R# 

8.31451  m2kg/s2k  mol 

Constante  gravitacional 

G# 

6 . 672e-ll  m3/kg  s2 

Aceleración  de  la  gravedad 

g# 

9.80665  m/s2 

Las  constantes  físicas  deben  ir  seguidas  por  sus  unidades  de  medida:  "l^s"  ,  "200^m"  ,  "25^kg"  ,  "  150^MHz  ", 

"  0 . 15^uF",  "  3600^kohm" .  Se  utilizan  de  manera  análoga  a  las  constante  matemáticas.  Por  ejemplo  eps#  *  S/d#, 
sqr(m*h*g#),  s0+v*t+0 . 5*g#*t A2 

8.  Símbolos  y  Funciones 

+  adición 

resta 

*  multiplicación 

/  división  35/4  =  8.75 

%  porcentaje  35%  =  3.5 

\  división  entera  3 5 \ 4  =  8  A  elevar  a 

potencia  3A1.8  =  7.22467405584208  (°)  j  |  valor 

absoluto  | —5 | =5  !  factorial  5 ! =120 

abs(x)  valor  absoluto  abs(-5)=  5  atn(x) 

atan(x)  x  en  radianes 

cos(x)  x  en  radianes 

sin(x)  x  en  radianes 

exp(x)  exponencial  exp(l)  =  2.71828182845905,  es  decir,  eAl 

fix(x)  parte  entera  f ix (—3 . 8 )  =  3  int(x) 

parte  entera  int  (—3.8)  =  -4  dec(x) 

parte  decimal  dec(-3.8)  =  -0.8  ln(x)  logaritmo  natural  x>0  log(x) 

log  natural  logN(x,n)  logaritmo  base  N  logN(16,2)  =  4 

rnd(x)  random  retorna  un  valor  aleatorio  entre  x  y  0 

sgn(x)  signo  retorna  1  si  x  >0,  0  si  x=0,  -1  si  x<0  sqr(x) 

raíz  cuadrada  sqr (2 ) =1 . 4142135623731,  también  2 A  ( 1 / 2 ) 

raiz  cúbica  root(x,3) 

raíz  n-ésima  xA(l/n) 

mod(a,b)  mod(29,6)  =  5,  mod(-29  ,6)  =  -5  comb(n,k) 
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combinaciones  comb(6,3)  =  20  ,  comb(6,6)  =  1  perm(n,k) 
permutaciones  perm(8,4)  =  1680 


También,  entre  otras: 


min (a,b) ,max (a,b) ,  sech(x),  coth(x),  acsch(x),  asech(x),  acoth(x), 
round(x,d),  mcd(a,b),  mcm (a, b, gcd (a, b) , lcm (a, b) ,  csc(x),  sec(x), 
cot(x),  acsc(x),  asec(x),  acot  (x) ,  csch (x) , tan  (x) ,  acos (x) , 
asin(x),  cosh(x),  sinh(x),  tanh(x),  acosh(x),  asinh(x),  atanh(x), 
and (a, b) , or (a, b) , not (a) , xor (a, b) ,  Psi(x),  DNorm(),  CNorm(), 
DPoisson ( ) , CPoisson ( ) , DBinom ( ) , CBinom ( ) ,  Si (x)  (Sinelntegral) , 

Ci  (x) , FresnelS (x) ,  etc. 


9.  Métodos 


Código  VBA  E.28: 


StoreExpression (f )  Almacena  y  revisa  la  sintaxis  Eval(x) 

Evalúa  la  expresión  (que  posiblemente  tenga  varias  variables) 
Evall (x)  Evalúa  una  expresión  de  una  variable 


Eval  ( )  se  usa  cuando  vamos  a  evaluar  expresiones  con  varios  parámetros  y/ o  variables.  Evall  ( )  es  para  fun¬ 
ciones  de  una  sola  variable. 

Vamos  a  ver  algunos  ejemplos  en  los  que  se  aplican  estos  métodos. 


E.6.2  Ejemplo:  un  graficador  2D 


Podemos  implementar  de  manera  muy  sencilla  un  graficador  de  funciones  y  =  f(x) . 

Para  esto,  leemos  la  ecuación  de  la  función  y  =  f(x)  en  una  celda  y  el  intervalo  de  graficación  [a,b] .  Para  hacer 
el  gráfico  necesitamos  una  tabla  de  valores  (xiry¡) .  Lo  que  hacemos  es  partir  el  intervalo  [a,b]  con  n  +  1  puntos 
x¡,  i  —  0,1,..., n;  y  evaluamos  la  función  en  cada  uno  de  estos  x¡ .  Si  los  puntos  son  equidistantes,  la  distancia  de 
separación  es  h  —  (b  —  a)/ n  y  este  caso 


h 


xo  —  a 


Xi=  a  +  l*h 


Xi  =  a  +  i*h 


— • — 

Xn  =  b 


■>- 


xq  —  a  +  0  ■  h  —  a 
x\  —  a  +  1  ■  h 
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X2  —  a  +  2  ■  ll 


x¡  —  a  +  i  ■  h 
xn—a  +  n-  h  —  b 

Entonces  la  tabla  de  puntos  es  el  conjunto  {(a  +  i  ■  h,  f  (a  +  i  ■  h)) ,  i  —  0,1,...,??} 


Supongamos  que  el  graficador  va  a  quedar  en  una  hoja  como  la  que  se  ve  en  la  figura 


ABC  D  E  F 


1 


f(x)  = 

e#Ax/(e#Ax+1) 

Tdlil.i  ile  v.ilmei 

Inteivolo 

Pinitos 

Graicai 

x  V 

•i 

b 

II 

■2  0,1 19203 

2 

5 

50 

Entonces  la  tabla  de  puntos  se  puede  generar  con  el  código 


Código  VBA  E.29: 


n  =  Cells(6,  5)  a  =  Cells(6,  3)  b  =  Cells(6,  4)  h  =  (b  -  a)  /  n 
Formula  =  Cells(2,  3) 

FormulaEstaBien  =  Fun . StoreExpression  (Formula)  rem  lectura  de  la  fórmula 

If  Not  FormulaEstaBien  Then 

msgbox  ( "Error"+Fun.ErrorDescription) 

Exit  Sub 

end  If 

For  i  =  0  To  n 

Cells(6  +  i,  1)  =  a  +  i*h  rem  xirem  s 

Cells(6  +  i,  2)  =  Fun.Evall(a  +  i  *  h)  rem  yirem  s 

Next  i 
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Luego  debemos  seleccionar  la  tabla  de  valores  y  hacer  un  gráfico  (chart).  Si  hay  un  gráfico  previo  lo  podemos  borrar 
(que  no  es  necesario  si  uno  quiere  comparar  gráficos  por  ejemplo).  Estas  dos  cosas  se  pueden  lograr  con  el  código 


Código  VBA  E.30: 


rem - eliminar  gráficos  anteriores - 

Set  chartsTemp  =  ActiveSheet . ChartOb jects 
If  chartsTemp . Count  >  0  Then 

chartsTemp (chartsTemp . Count) . Delete 

End  If 

rem - gráfico - 

datos  =  Range (Cells ( 6,  1), 

Cells(6  +  n,  2)).Address  rem  rango  a  graficar  Set  graf  =  Charts.Add 
rem  gráfico 

With  graf  rem  características 

.Ñame  =  "Gráfico" 

.ChartType  =  xlXYScatterSmoothNoMarkers  rem  tipo  de  gráfico  XY  (Dispersión) 
. SetSourceData  Source : =Sheets ( "Ho jal " ) .Range (datos) ,  PlotBy:=xlColumns 
.Location  Where : =xlLocationAsOb ject,  Name:="Hojal" 

End  With 


El  código  completo  del  botón  que  levanta  el  gráfico  es 


Código  VBA  E.31: 


Private  Sub  CommandButton2_Click  ( ) 

Dim  n  As  Integer 
Dim  h  As  Double 
Dim  Formula  As  String 
Dim  graf  As  Chart 

Dim  chartsTemp  As  ChartObjects  rem  contador  de  charts  (gráficos)  para  eliminar  el  anterior 
Dim  FormulaEstaBien  As  Boolean 
Dim  Fun  As  New  clsMathParser 

n  =  Cells  (6,  5) 
a  =  Cells  (6,  3) 
b  =  Cells  (6,  4) 
h  =  (b  -  a)  /  n 
Formula  =  Cells  (2,  3) 

FormulaEstaBien  =  Fun . StoreExpression (Formula) 

If  Not  FormulaEstaBien  Then 
msgbox ( "Error"+Fun.ErrorDescription) 

Exit  Sub 

end  If 


rem  lectura  de  la  fórmula 
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For  i  =  0  To  n 

Cells(6  +  i,  1)  =a+i*h 

Cells(6  +  i,  2)  =  Fun.Evall(a  +  i  *  h) 

Next  i 


rem  -  eliminar  gráficos  anteriores 

Set  chartsTemp  =  ActiveSheet . ChartOb jects 
If  chartsTemp. Count  >  0  Then 

chartsTemp (chartsTemp. Count) .Delete 

End  If 

rem - 


datos  =  Range  (Cells  ( 6,  1),  Cells(6  +  n,  2)).Address  rem  rango  a  graficar 
Set  graf  =  Charts.Add  rem  gráfico  y  sus  caraterísticas 

With  graf 

.Ñame  =  "Gráfico" 

.ChartType  =  xlXYScatterSmoothNoMarkers 

. SetSourceData  Source : =Sheets ( "Ho jal " ) .Range (datos) ,  PlotBy:=xlColumns 
.Location  Where : =xlLocationAsOb ject,  Name:="Hojal" 

End  With 

End  Sub 


Observe  que  se  pueden  graficar  funciones  a  trozos.  Por 
ejemplo,  para  graficar 


/(*) 


X 2 

si 

x  e]  —  oo,  o[ 

X 

si 

X  e]0,2] 

4  —  x 

si 

x  e]2,oo[ 

digitamos  la  función  como 


f  (x)  =  (x<0)  *  (x"2)  +  (0<x<=2)  *x+  (x>2)  *  (4-x) 


2  f(x)- 

3 

(x<0)'  xA2+(0<x<=2)'  x+(x>2)'  (-x+4) 

4  1  .iM.i  «If*  v«»lr»M*s 

Intervalo  Punto* 

5  x  y 

i  6  -2  4  ” 

2  1  5  I  50 

□ 
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Implemente  un  graficador  para  curvas  definidas  por  una  ecuación  parámetrica. 


Nota.  Algunas  curvas,  como  los  círculos,  las  elipses,  etc.,  se  definen  por  medio  de  ecuaciones  parámetricas 
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(x(t),y(t)),  te  [a,bj. 


Por  ejemplo 


•  Las  ecuaciones  paramétricas  de  un  círculo  de  radio  r  y  centro  en  ( h,k )  son 


(h  +  rcos(í), k  +  rsen(f)),  t  e  [0,2n]. 


•  Las  ecuaciones  paramétricas  de  un  cicloide  son  («  >0) 


x  =  a(ff  —  senO),  y  —  a{  1  —  cos0),  OgE. 


•  Una  curva  con  ecuación  en  polares  r  =  f(0),  9  e  [ a,b ];  tiene  ecuación  parámetrica 


if(9)  -cos(9),f(6)  ■  sen(0)),  te  [ a,b ]. 


E.6.3  Ejemplo:  un  graficador  de  superficies  3D 

Podemos  implementar  de  manera  muy  sencilla  un  graficador  de  superficies  de  ecuación  z  =  f(x,y  ) . 

Para  esto  solo  hay  que  observar  que  en  vez  de  una  tabla  de  puntos  (x¡,j/;,Z;(x¿,y¡))  en  tres  columnas,  Excel  necesita 
una  tabla  de  la  forma 


*0 

Xi 

yo 

/(*o,yo) 

f(xi,yo) 

f(xn,y0) 

yi 

ffayi) 

y« 

fíx0/ljn) 

f{x\,yn) 

f(x„,y„) 

Los  intervalos  de  graficación  son  x  e  [xmin,xmax]  y  ye  [ ymin,ymax\ .  Cada  intervalo  lo  partimos  en  n  puntos  (que 
puede  ser  modificado  por  el  usuario). 
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X 


Si  hx  =  (xmax-xmin)  /n  y  si  {hy  =  (ymax-ymin)  /n,  entonces 


xi 

=  xmin  + 

i*hx, 

i  =  0,1,  . 

.  .  ,n 

-1 — 1 
>1 

=  ymin  + 

►>1 

Xi 

-X 

-1 — i 

j  =  0,1, . 

.  .  ,n 

Para  que  la  tabla  quede  en  el  formato  adecuado,  debemos  usar  dos  ciclos  iterativos  anidados 


Código  VBA  E.32: 


For  i  =  0  To  n 

xi  =  xmin  +  i  *  hx 

Cells(7,  2  +  i)  =  xi  rem  fila  de  las  xi 

For  j  =  0  To  n 

yi  =  ymin  +  j  *  hy 

Cells(8  +  j,  1)  =  yi  rem  columna  de  la  yi 

OK  =  Fun.  StoreExpression  (fxy)  rem  formula  actual  es  rem  f(x,y)rem 

If  Not  OK  Then  GoTo  Error_Handler 

Fun. Variable  ("x")  =  xi  rem  asignación  para  evaluar 

Fun .Variable ( "y" )  =  yi 

Cells(8  +  j,  2  +  i)  =  Fun.EvalO  rem  retorna  f  (xi,  yi) 

Next  j 

Next  i 


Una  vez  que  se  genera  la  tabla  de  datos,  la  seleccionamos  y  la  ocultamos  (porque  es  muy  grande  y  llena  de  deci¬ 
males).  Luego  generamos  el  gráfico  3D. 
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A  B  C  D  E  F  G  > 

1  PHIit-  U  (unción  .M|in  _ 

2  H|i(,()*  5‘«*í7‘y*I 


El  código  completo  es 


Código  VBA  E.33: 


Private  Sub  CommandButton2_Click  ( ) 

Dim  xmin,  xmax,  ymin,  ymax,  hx,  hy,  xi,  yi  As  Double 
Dim  n  As  Integer 

Dim  fxy  As  String  rem  función  f(x,y) 

Dim  graf  As  Chart 

Dim  FormulaEstaBien  As  Boolean 

Dim  Fun  As  New  clsMathParser  rem  así  se  llama  el  módulo  de  clase  aquí 

fxy  =  Cells  (2,  2) 
xmin  =  Cells  (5,  3) 
xmax  =  Cells  (5,  4) 
ymin  =  Cells  (5,  5) 
ymax  =  Cells (5,  6) 

n  =  Cells  (3,  2)  rem  número  de  puntos  n  x  n 
hx  =  (xmax  -  xmin)  /  n 
hy  =  (ymax  -  ymin)  /  n 

If  hx  >  0  And  hy  >  0  And  n  >  0  Then 
For  i  =  0  To  n 

xi  =  xmin  +  i  *  hx 
Cells  (7,  2  +  i)  =  xi 

For  j  =  0  To  n 

yi  =  ymin  +  j  *  hy 
Cells  (8  +  j,  1)  =  yi 
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FormulaEstaBien  =  Fun .  StoreExpression  (fxy)  rem  fórmula  actual  es  rem  f(x,y)rem 

If  Not  FormulaEstaBien  Then 

msgbox ( "Error"+Fun . ErrorDescription) 

Exit  Sub 

end  If 

Fun .Variable ( "x" )  =  xi 
Fun .Variable  ( "y" )  =  yi 

Cells(8  +  j,  2  +  i)  =  Fun.EvalO  rem  retorna  f  (xi,  yi) 

Next  j 
Next  i 

End  If 

rem - eliminar  gráficos  anteriores - 

Set  chartsTemp  =  ActiveSheet . ChartOb jects 
If  chartsTemp. Count  >  0  Then 

chartsTemp (chartsTemp. Count) .Delete 

End  If 

rem - 

datos  =  Range  (Cells  (7,  1),  Cells(7  +  n,  n  +  2)).Address  rem  rango  a  graficar 
Range (datos) .Select 

Selection.NumberFormat  =  rem  ocular  celdas 

Charts . Add 

ActiveChart .ChartType  =  xlSurface 

ActiveChart . SetSourceData  Source : =Sheets ( "Ho jal " ) .Range (datos)  ,  PlotBy :=xlColumns 
ActiveChart . Location  Where : =xlLocationAsOb ject,  Ñame : ="Ho jal " 

End  Sub 


Nota:  para  rotar  la  figura,  seleccione  el  área  del  gráfico  y  haga  clic  con  el  botón  derecho  del  mouse,  seleccione  en  el 
menú  la  opción  Vista  en  3D... 


EJERCICIOS 


1.  Implemente  un  graficador  para  curvas  y /o  superficies  con  ecuación  paramétrica. 


N 

series  numéricas  y  series  de  potencias.  Implementaremos  una  función  que  calcula  la  suma  parcial  Sjy  =  y  f(k) . 

k=k0 

CO  2^ 

Luego  la  aplicaremos  a  la  serie  y  — . 

1=1 
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c 

D 

E 

F 

G 

H 

Suma  parcial 

Sumar 

10 

I 

2*  kk! 

6,388994709 

k  = 

1 

Para  esto  vamos  a  definir  una  función 


N 

SumaParcial (formula,  K_0,  N) =  ^  f(k) . 

k=K0 


Esta  función  revisa  la  sintaxis  de  la  fórmula  y  calcula  la  suma  parcial. 


Código  VBA  E.34: 

Function  SumaParcial  (formula,  Kini,  N) 

Dim  suma  As  Double 

Dim  FormulaEstaBien  As  Boolean 

Dim  Fun  As  New  clsMathParser  rem  así  se  llama  el 

FormulaEstaBien  =  Fun . StoreExpression (formula)  rem  fórmula 

módulo  de  clase  aquí 

actual  es  "formula" 

If  Not  FormulaEstaBien  Then 

msgbox  ( "Error"+Fun.ErrorDescription) 

Exit  Sub 

end  If 

suma  =  0 

For  i  =  Kini  To  N 

suma  =  suma  +  Fun.Evall(i)  rem  evalúa  en  "formula" 

Next  i 

SumaParcial  =  suma  End  Function 

Ahora,  podemos  aplicar  esta  función  con  un  botón 

Código  VBA  E.35: 

Private  Sub  CommandButtonl_Click  ( ) 

Dim  formulal  As  String 
Dim  N 

Dim  kk  As  Integer 


formulal  =  Cells(8,  5) 
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N  =  Cells  (7,  4) 
kk  =  Cells  (10,  4) 

Cells  (8, 7)  =  SumaParcial (formulal,  kk,  N) 

End  Sub 


Dada  una  serie  numérica 
en  adelante. 


00 

r.  /(&),  vamos  a  desplegar  las  primeras  N  sumas  parciales  S,\¡ 
k=k0 


N 

^  f(k) ,  de  la  celda  B4 

k=k0 


A 

B 

C 

D 

1 

Sumas  parciales  <le  la  serie 

2 

Fóimula  f(k| 

Sumas  Parciales 

N 

3 

SN 

2a  k  k! 

20 

4 

S  1  = 

2 

5 

S  2  = 

4 

6 

S  3  = 

5  ,333333333 

7 

S  4  = 

6 

8 

S  5  = 

6  ,266666667 

9 

S  6  = 

6  .355555556 

Usando  la  función  SumaParcial  (formula,  Kini,  N) ,  solo  debemos  calcular  cada  suma  parcial  por  separado. 


Código  VBA  E.36: 


For  i  =  1  to  N 

Cells(3+i,2)=  SumaParcial (formula,  Kini,  i) 

Next  i 


El  código  del  botón  es 


Código  VBA  E.37: 

Private  Sub  CommandButtonl_Click  ( ) 

Dim  xO  As  Double 

Dim  formulal  As  String 

Dim  N  As  Integer 

formulal  =  Cells 

N  =  Cells  (3,  4) 

(3,  2) 

For  i  =  1  To  N 

Cells  (3  +  i, 
Cells (3  +  i, 

Next  i 

End  Sub 

rem  sumas  parciales  SI,  S2,  . 

1)  =  "S"  +  str(i)  +  "  =  " 

2)  =  SumaParcial (formulal,  1,  i) 

.  .  SN 

00 

Usando  Eval().  Ahora  vamos  a  cambiar  a  series  de  potencias.  Dada  una  serie  de  potencias  ^  f{x,k) ,  implementare- 

k=k0 

N  co 

mos  una  subrutina  que  calcula  la  suma  parcial  Sjv  =  ^  f(xQ,k) .  Luego  la  aplicaremos  a  la  serie  ^  — ,  con  x  —  2. 

k=k0  k= 1  k ■ 
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D 

E 

F 

G 

H 

5 

Suma  parcial 

6 

Sumar 

X 

7 

5 

2 

8 

£ 

xA  k'k! 

6,266666667 

9 

10 

k  = 

1 

Vamos  a  implementar  una  nueva  función  SumaParcial  (laf ormula,  Kini,  N,  xx) . 


Aquí  la  situación  es  diferente,  f(x,k)  tiene  dos  variables,  por  tanto  no  podemos  usar  Evall  ( )  porque  este  método 
es  para  funciones  de  una  sola  variable. 

Eval  ( )  evalúa  la  expresión  actual  almacenada  y  retorna  su  valor.  Para  evaluar,  se  debe  especificar  el  valor  de  cada 
variable  con  Fun.  Variable  () .  En  nuestro  caso  debemos  hacer  la  especificación  Fun.  Variable  ("x")  =xx  y 
Fun.  Variable  ("k")  =i,  antes  de  llamar  a  Eval  () .  Veamos  el  código  de  la  función  SumaParcial  (formula, 
Kini,  N,  xx ) 


Código  VBA  E.38: 


Function  SumaParcial  (formula,  Kini,  N,  xx) 

Dim  suma  As  Double 

Dim  FormulaEstaBien  As  Boolean 

Dim  Fun  As  New  clsMathParser  rem  así  se  llama  el  módulo  de  clase  aquí 

FormulaEstaBien  =  Fun .  StoreExpression  (formula)  rem  fórmula  actual  es  "laf  ormula" 

If  Not  FormulaEstaBien  Then 

msgbox ( "Error "+Fun . ErrorDescription) 

Exit  Sub 

end  If 

suma  =  0 

Fun .Variable ( "x" )  =  xx 
For  i  =  Kini  To  N 

Fun .Variable ( "k" )  =  i 

suma  =  suma  +  Fun. Eval  ()  rem  evalúa  en  "formula"  actual 
SumaParcial  =  suma  End  Function 


Ahora,  el  código  del  botón  sería 


Código  VBA  E.39: 


Private  Sub  CommandButtonl_Click  ( ) 

Dim  formulal  As  String 
Dim  N,  kk  As  Integer 
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Dim  xO  As  Double 

formulal  =  Cells(8,  5) 

N  =  Cells  (7,  4) 
kk  =  Cells  (10,  4) 
xO  =  Cells  (7,  8) 

Cells (8,  7)  =  SumaParcial (formulal,  kk,  N,  xO) 

End  Sub 


EJERCICIOS 


1 .  Implemente  un  función  para  series  alternadas  que  además  de  dar  la  suma  parcial  pedida,  indique  la  estimación 

00 

del  error.  Recuerde  que  si  ^  (  — 1  )l{ f(k)  es  alternada  entonces  si  el  error  cometido  al  aproximar  la  serie  con  la 

k= 1 
N 

sumaparcial  Sjg  =  — 1  )kf{k)  es  Rp¡ ,  entonces  \Rp\  <  «n+ i- 

k= l 


Nota:  Puede  ser  importante  conocer  la  primera  o  la  última  celda  de  una  selección.  Para  esto  podemos  usar  la 
propiedad  Address 


Código  VBA  E.40: 


Set  R  =  Selection 

adr  =  R ( 1 ,  1). Address  rem  primera  celda  de  la  selección,  por  ejemplo  Al 

num  =  Right(adr,  1)  rem  primera  posición  a  la  derecha  de  adr  (1  en  este  caso ) 


Código  VBA  E.41: 


If  m  mod  n  =  0  Then  rem  si  m  es  múltiplo  de  n  ....  End  If 


E.6.4  Campos  de  Texto. 

A  veces  puede  ser  cómodo  entrar  datos  en  un  campo  de  texto  (TextBox)  en  vez  de  una  celda.  Para  incluir  un  campo 
de  texto  en  una  hoja  se  procede  de  manera  análoga  a  como  se  incluye  un  botón.  Primero,  en  la  barra  de  controles  se 
selecciona  el  campo  de  texto  y  se  da  clic  en  la  hoja 
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W  |abl 

0  O 

O 

X-  Cortar 
í^=)  Copiar 

_l  0? 

m  II 

F1  JÉJ 

®  Pegar 

r. _ 

í¡  A 
EÜ 

¿p  Ver  código 

Objeto  Cuadro  de  texto  ► 

Agrupar  ► 

Ordenar  ► 

Formato  de  control. . . 

Cu  ▼  X 

M  & 

m 

W  |ábÍ 

i  a- 

„  c  Cuadro  de  texto  | 

1EH 

¿  ±1 

S¡  A 

Luego,  se  tiene  acceso  a  las  propiedades  dando  clic  derecho  en  el  campo  de  texto.  Observe  que  el  primer  campo 
de  texto  tiene  nombre  (Ñame)  "TextBoxl".  Este  nombre  se  usa  para  identificar  este  campo  de  texto.  Este  nombre  se 
puede  cambiar,  pero  no  es  necesario. 


Propiedades 


-O 

CL 

O 


TextBoxl  TextBox 
Alfabética  I  por  categorías 


n 

u 


I  (Ñame) 

AutoLoad 

False 

AutoSlze 

False 

AutoTab 

False 

AutoWordSelect 

True 

BackColor 

□  &H80000005& 

BackStyle 

1  -  fmBackStyleOpaque 

BorderColor 

■  &H80000006& 

BorderStyle 

0  -  fmBorderStyleNone 

DragBehavior 

0  -  fmDragBehaviorDisabled 

Enabled 

True 

EnterFieldBehavior 

0  -  fmEnterFieldBehaviorSelectA 

EnterKeyBehavior 

False 

Font 

Arial 

ForeColor 

■  &H80000008& 

En  el  código  VBA,  se  puede  leer  lo  que  el  usuario  escribió  en  el  campo  de  texto  con  la  instrucción 


Dim  Formula  As  String 
Formula  =  TextBoxl . Text 


en  este  caso,  el  contenido  del  campo  de  texto  se  almacena  en  la  variable  "Formula". 


Vamos  a  implementar  de  nuevo  un  "evaluadorrem  rem  de  funciones.  La  hoja  Excel  luce  así 
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A 

B 

C 

D  E 

F 

G  1 

1 

2 

3 

Diente 

Campo  de  Texto 

Celda 

Evaluar  f 

4 

f(x)  = 

|  xA2-cos<x)-1 

x  =  34 

6 

7 

8 

f<  34)  =  1155,84857 

El  código  es  el  siguiente 


Código  VBA  E.42: 


Private  Sub  CommandButtonl_Click ( )  evaluarEimprimirFun  End  Sub 


Sub  evaluarEimprimirFun ( ) 

Dim  xvalor  As  Double 
Dim  Formula  As  String 
Dim  estaBien  As  Boolean 

Dim  Fun  As  New  clsMathParser  rem  crear  objeto  Fun 

Formula  =  TextBoxl . Text 
xvalor  =  Cells (4,  5) 

rem  leer  rem  Formularem  y  analizar  sintaxis 
FormulaEstaBien  =  Fun . StoreExpression (Formula) 

If  Not  FormulaEstaBien  Then 
msgbox  ( "Error"+Fun.ErrorDescription) 

Exit  Sub 

end  If 

Cells (8,  4)  =  "f("  +  str  (xvalor)  +  ")  =  " 
rem  evaluar  en  la  fórmula  actual 
Cells (8,  5)  =  Fun. Evall (xvalor) 

End  Sub 


Nota:  Observe  que  en  este  ejemplo,  como  usamos  el  evaluador  de  fuciones  clsMathParser .  cls,  en  el  campo  de 
texto  de  la  función,  los  números  con  decimales  usan  punto.  En  cambio  en  las  celdas,  si  necesitamos  decimales,  debe¬ 
mos  atender  a  la  configuración  regional  del  computador  (coma  o  punto). 


EJERCICIOS  349 


Bibliografía 

[1]  W.  Gautschi.  Numérica l  Analysis.  An  Introduction.  Birkháuser,  1997. 

[2]  P.  Henrici.Essentials  ofNumerical  Analysis.  Wiley,  New  York,  1982. 

[3]  J.  Stoer,.  Introduction  to  Numerical  Analysis.  3rd  ed.  Springer,  2002. 

[4]  D.  Kahaner,  K.  Moler,  S.  Nash.  Numerical  Methods  and  Software.  Prentice  Hall. 1989. 

[5]  D.  Kincaid,  W.  Cheney.  Numerical  Analysis.  Mathematics  ofScientific  Computing.  Brooks-Cole  Publishing  Co.1991. 

[6]  R.  Burden, }.  Faires.  AnAlisis  NumArico.  6ta  ed.  Thomson.  1998. 

[7]  E.  Cheney,  Introduction  to  Approximation  Theory.  Internat.  Ser.  Puré  ans  Applied  Mathematics.  McGraw-Hill.  1966. 

[8]  J.P.  Berrut,  L.  N.  Trefethen.  "Barycentric  Lagrange  Interpolation"  Siam  Rewiew.  Vol.  46,  No.  3.  2004. 

[9]  J.  Higham,  "The  numerical  stability  of  barycentric  Lagrange  interpolation".  IMA  Journal  of  Numerical  Analysis 
24.  2004. 

[10]  Kaufman,  E.  y  Lenker,  T.  "Linear  Convergence  and  the  Bisection  Algorithm".  Amer.  Math.  Monthly,  93:48-51, 
1986. 

[11]  Brent,  R.P.  "An  Algorithm  with  Guaranteed  Convergence  for  Finding  a  Zero  of  a  Function."  Computer  Journal  14 
(1971),  422-425.  http: / /web . comlab. ox .ac.uk/ oucl/work/richard.brent/pd/rpb005 .pdf 

[12]  Press,  W.;  Teukolsky,  S.;  Vterling,  W.;  Flannery,  B.  Numerical  Recipes  in  C.  The  Art  of  Scientific  Computing.  2da  Ed. 
Cambridge  Universite  Press.  1992. 

[13]  Chapra,  S.;  Canale,  R.  Métodos  Numéricos  para  Ingenieros.  Ed.  Me  Graw  Hill,  4a.  ed.,  2002. 

[14]  Mathews,  J;  Fink,  K.Métodos  Numéricos  con  MATLAB.  Prentice  Hall,  3a.  ed.,  2000. 

[15]  Dahlquist,  G.  Bjork,  A.  Numerical  Mathematics  in  Scientific  Computation.  www.mai.liu.se/~akbjo.  Consultada  en 
Mayo,  2006. 

[16]  Zeng,  Z.  "MultRoot  -  A  Matlab  package  computing  polynomial  roots  and  multiplicities". 

http :  //www.  neiu .  edu/~zzeng/Papers/ zrootpak.pdf) .  Consultada  en  Mayo,  2006. 

[17]  Zeng,  Z.  "Computing  múltiple  roots  of  inexact  polynomials".  http://www.neiu.edu/~zzeng/Papers/zroot.ps. 
Consultada  en  Mayo,  2006. 

[18]  Plofker,  Kim.  "An  example  of  the  secant  method  of  iterative  approximation  in  a  fifteenth-century  Sanskrit  text". 
Historia  Math.  23,  246-256. 

[19]  DAez,  Pedro.  "A  note  on  the  convergence  of  the  secant  method  for  simple  and  múltiple  roots"  Applied  Mathe¬ 
matics  Letters,  Vol.  16,  Issue  8,  pp.  1211-1215,  200. 

[20]  Ralston,  A.;  Rabinowitz,  P.  A  First  Course  in  Numerical  Analysis.  2nd  ed.  Dover,  1978. 

[21]  Demidovich,  B.;  Marón,  I.  CAlculo  NumArico  Fundamental.  2da  ed.  Paraninfo  (Madrid),  1985. 

[22]  Scarborough,  J.  Numerical  Mathematical  Analysis.  3rd  ed.  Oxford  University  Press,  1955. 

[23]  Moler,  K.  Numerical  Computing  with  MATLAB. 

http :  //www.mathworks .  com/moler  /  Consultada  en  Enero,  2006. 

[24]  Traub,  J.  F.  Iterative  Methods  for  the  Solution  of  Equations.  AMS  Bookstore,  1982.  Disponible  en  google  book  search: 

http: //books. google.com/ 

[25]  Brent,  R.P.  "An  Algorithm  with  Guaranteed  Convergence  for  Finding  a  Zero  of  a  Function."  Computer  Journal  14 
(1971),  422-425.  http: / /web . comlab.ox.ac.uk/ oucl/work/richard.brent/pd/rpb005 .pdf 

[26]  A.  Jeffrey,  Hui-Hui  Dai.  Handbook  of  Mathematical  Formulas  and  Integráis.  4th  edition.  Academic  Press.  2008. 

[27]  A.  Channelle.  Beginning  OpenOffice  3.  From  Novice  To  Professional.  Apress.  2009. 

[28]  A.  Pitonyak.  OpenOjfice.org  Macros  Explained.  Hentzenwerke  Publishing.  2004. 

[29]  L.  Godart,  Bernard  Marcelly.  Programmation  OpenOffice.org  2.  Macros  OOo  Basic  et  API.  Editions  Eyrolles.  2006. 

[30]  M.Baeza  S.  Aprendiendo  OOo  Basic.  En  http:  //www.universolibre.org/node/1 


[31]  M.  A.  Bain.  Learn  OpenOffice.org.  Spreadsheet  Muero  Programming  OOo  Basic  and  Cale  Automation.  Packt  Publishing. 
2006. 

[32]  R.  Graham,  D.  Knuth  y  O.Patashnik.  Concrete  Mathematics:  A  Foundation  for  Computer  Science,  2nd  ed.  Addison- 
Wesley,  pp.  272-282, 1994. 

[33]  OOo  Forum.org.  "Solved:Sheet  Cell  Array  Functions  in  Basic."  http://www.oooforum.org/forum/viewtopic. 
phtmlAt=23520.  Consultada  el  18  de  agosto  2010. 

[34]  OOo  Forum.org.  "How  to  use  callFunction()A."  http://www.oooforum.org/forum/viewtopic.phtmlAp=389084# 
389084.  Consultada  el  24  de  agosto  2010. 

[35]  OpenOffice.org  Wiki.  "OpenOffice.org  BASIC  Programming  Guide."  En  http://wiki. Services. openoffice. 
org/wiki/Documentation/BASIC_Guide 


Solución  de  los  Ejercicios 


Soluciones  del  Capítulo  1 


1.1  \p  —  p\  <  0.5  x  10  4  pero  \p  —  p\  ■£,  0.5  x  10  5  así  que  tenemos  4  deciamles  correctos.  Luego,  solo  0.001  y  0.0002 
son  >  10"4  así  que  solo  hay  dos  cifras  significativas,  solo 

1.2  |  p  —  p  |  <  0.000001  <  0.5  x  1 0  5  pero  no  se  sabe  si  |  p  —  p  \  <  10  (\  entonces  solo  podemos  asegurar  5  decimales 
correctos. 

1.3  Sirve  cualquier  5  <  0.5  x  10”3. 

1.9  Usando  tres  decimales  todo  el  tiempo,  obtenemos  x  —  0.002  y  y  =  0.384  mientras  que  la  solución  correcta  es 

*  =  i  y  y  =  i- 


Soluciones  del  Capítulo  2 


2.1.a 


P3(X)  = 


+ 


+ 


+ 


1  •  (x  —  l)(x  —  3)(x  —  4) 
(0  —  1)(0  —  3)(0  —  4) 

2  •  (x  —  0)(x  —  3)(x  —  4) 
(1  —  0)(1  —  3)(1  —  4) 

0  ■  (x  —  0)(x  —  l)(x  —  4) 
(3  —  0)(3  —  1)(3  —  4) 

4  ■  (x  —  0)(x  —  l)(x  —  3) 
(4  —  0)(4  —  1)(4  —  3) 


2.1. c  /( 3.5)  «  P3( 3.5)  =  1.21875 

2.2. a  P3(x)  =x(x-l)(x-3)(x-4)  ^3^ 


1 


1 


-1)  12x  3(x  —  4) 

1 


2.2. b  P3(x)  = 


3(x  —  1)  12x  3(x  —  4) 


1 


1 


6(x  —  3)  6(x  —  1)  12x  12(x  —  4) 

2.2. d  /( 3.5)  «  P3(3.5)  =  1.21875 

2.3  Forma  Modificada, 

P3(x)  =  (x  —  0.5)(x  —  0.4)(x  —  0.3)(x  —  0.2)  2650. 


200.  1750. 

+ 


x  —  0.4  x  —  0.3  x  —  0.2  x  —  0.5 


Forma  Baricéntrica, 

4700.  2650. 


H*)  = 


200.  1750. 

+ 


x  —  0.4  x  —  0.3  x  —  0.2  x  —  0.5 

500.  500.  _  166.667  166.667 

x  —  0.4  ^  x  —  0.3  x  —  0.2  x  —  0.5 


/(0.35)  «P3 (0.35)  =  7.5375 

2.4 


Pi(x)  =  y0Ln,o(x)  +y1LnA(x) 

(x  — Xi)  (x  —  Xn) 

=  3/0  7“ — é4+yi 


(xo-xx)  3  (x3  x0) 

yo{x  -  Xi)  -  y\x  +  1/1X0  +  Xxj/x  -  Xiyi 


(yo-yi) 

(x0  -  Xx) 


x0  -  Xx 


(x-xi)  +  3/1 


2.5.a  P2(x)  =  44.875(x  -  0.4) (x  -  0.2)  +  38.5x(x  -  0.2)  -  77.75(x  -  0.4)x 
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2.5.b  /o(0.25)  «  P3(0.25)/tt  =  0.974128 

2.6  La  tabla  acumulada  es. 

Salarios  ($)  1000  2000  3000  4000 
Frecuencia  9  39  74  116 

La  cantidad  estimada  de  personas  con  salario  entre  $1000  y  $1500  es  P3(15)  —  9  =  23.5  —  9  —  14.5,  es  decir,  unas  15 
personas. 

2.7  Como  1  +  3x*  —  1.75  =>  x*  —  0.25.  El  polinomio  interpolante  es, 

P2(x)  =  9.72544  7.49065x  (x  -  ^  -  2.54653  (x  -  ^  * 

cos(1.75)  tu  P2( 0.25)  =  -0.17054 

2.8. a  Usamos  la  subtabla, 

v(m3/kg )  0.10377  0.11144 

s  (kJ/Kg-K)  6.4147  6.5453 

El  polinomio  interpolantes  es  Pi  (x)  —  — 836.336(x  —  0.11144)  +  853.364  (x  —  0.10377).  La  entropía  s  para  un  volumen 
especifico  v  de  0.108m3 /kg  es  6A8673(kJ /Kg  ■  K) 

2.8. b  En  este  caso  usamos  los  tres  datos,  el  polinomio  interpolantes  es  P2(x)  —  38665. 6(x  —  0.1254)  (x  —  0.11144)  + 
22408. 7(x  —  0.10377)(x  —  0.11144)  —  61129.2(x  —  0.1254)  (x  —  0.10377).  La  entropía  s  para  un  volumen  especifico  v 
de  0.108 m3/kg  es  6A8753(kJ/Kg  ■  K) 

2.9  Usando  toda  la  tabla  obtenemos  /(0.25)  «  Ps(0.25)  =  0.00120042. 

2.10  Como  P(x)  es  un  polinomio,  coincide  con  el  polinomio  interpolante,  i.e.,  P(x)  —  P^(x).  En  la  tabla  aparecen  los 
datos  y  la  matriz  de  diferencias  divididas, 

Xj  X)i 

-1  3 

0  0 

1  4 

2  0 

3  1 

4  0 


P(x)  = 


3  —  3(x  +  1)  +  j*(*  +  l)  —  j(x  —  1)*(*  +  1)  +  g(x  —  2)(*  — 

i,  r\\  /  „w  .  ,  2x5  19x4  41*3 

-§(*  -  3)(*  -  2)(x  -  l)x(x  +  1)  =  H — - - - h 


l)x(x  + 1) 
x2  |  116* 

o  ^  1  r- 


2.11  /[* 2,*3,*4]  es  el  coeficiente  principal  del  polinomio  que  interpola  los  datos  (0.2,2),  (0.3,3),  (0.4,4).  Calculando 
la  matriz  de  diferencias  divididas  (u  observando  que  lo  datos  están  sobre  una  recta)  obtenemos  que  /[* 2,  *3,  *4]  =  0 


2.12  Usando  la  fórmula  de  diferencias  divididas. 


1  \yi-yi  _  yi-yo 

X2  —  Xo  X2  —  Xq  X\  —  Xq 


y  o _ 

(*0  —  *i)(*0  —  *2) 


+ _ y± _ 

(*1  —  *o)(*l  —  *2) 


+ _ n _ . 

(*2  —  Xq)(x2  —  *1) 


/[*  Q,*l,*2] 
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2.13.a  En  la  tabla  aparecen  los  datos  y  la  matriz  de  diferencias  divididas, 

Xi  y¡ 

0  1 

1  2  1 
30-1-1 


4  4 

La  forma  de  Newton  del  polinomio  interpolante  es 

P3(x)  =  1  +  x  —  |(x  —  l)x  +  ^(x  —  3)(x  —  l)x. 

2.13.C  /(3.5)  «P3(3.5)  =  1.21875. 


4  5  7_ 

*  3  12 


2.14  La  matriz  de  diferencias  divididas  es. 

b 

4 

0.308 

-0.00471 

0.132 

-0.00088 

0.0000127667 

0.079 

-0.000265 

2.05  x  10~6 

-2.67916  x  10~8 

0.044 

-0.000175 

3.  x  10~7 

-4.37499  x  10 ' ~9 

El  segundo  coeficiente  virial  (estimado)  a  450fC  es  13.8844(cwz3/ mol) 

2.15  La  matriz  de  diferencias  divididas  es, 

-0.23 

-1.04  -0.054 

-0.57  0.0313333  0.00341333 

-0.64  -0.00466667  -0.0018  -0.000173778 

El  polinomio  es  P4 (*)  =  988  -  0.23(x  -  50)  -  0.054(x  -  60)  (x  -  50)  +  0.00341333(x  -  65)  {x  -  60)  {x  -  50)  -  0.000173778(x 
75)  (x  —  65)  (x  —  60)  (x  —  50). 

A  una  temperatura  de  68  grados  Celsius,  la  densidad  estimada  es  978.084(fcy/ wz3) 


2.16  /[x¡,X;]  = 


yi-y¡  _  -( yj-yi ) 


Xi  —  X;  —  (x?-  —  x,-)  J  1 


=  f[Xj'Xi\ 


2.17  El  polinomio  es  P(x)  =  +/[xg,X7](x  —  x¿),  es  decir,  P(x)  —y6  +  — — —  (x  —  xg). 

X7 

2.18. a  En  la  tabla  aparecen  los  datos  (x;-,/o (x¿))  y  la  matriz  de  diferencias  divididas, 

Xi  Jo(xí) 

0  1.14273 

0.2  0.989944  -0.763944 

0.4  0.980394  -  0.0477465  1.79049 

P2(x)  =  1.14273  -  0.763944x  +  1.79049 (x  -  0.2)x. 

2.18. b  /o (0.25)  w  P2(0.25)  =  0.974128 
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2.19. a  Para  hacer  la  estimación  necesitamos  una  tabla  con  las  frecuencias  acumuladas, 

40  50  60  70  80 

y  35  83  153  193  215 

La  cantidad  de  estudiantes  con  nota  mayor  o  igual  a  65.  es  215  —  P4(65). 

2.19. b  La  cantidad  de  estudiantes  en  el  rango  55  —  65  es  Pj(65)  —  P4(55)  =  57.5,  es  decir,  unos  58  estudiantes. 

2.20  El  peso  aproximado  de  los  bebés  entre  los  5  y  5.6  meses  de  vida  es  15.67  libras. 

2.21  En  la  tabla  aparecen  los  datos  (x,,/o(x¿))  y  la  matriz  de  diferencias  divididas, 

x¡  cos(l+3x,) 

0  0.540302 

0.166667  0.070737  -2.81739 

0.333333  -0.416147  -2.9213  -0.311742 

cos(1.75)  ~  P2(0.25)  =  -0.17054. 


2.22. a  La  entropía  s  para  un  volumen  especifico  v  de  0.108 m3/kg  es  6.48673 (kj /  Kg  ■  K). 

2.22. b  La  entropía  s  para  un  volumen  especifico  v  de  0.108m3  Ag  es  s(0.108m3/fcy)  =  6A8753(k]  /  Kg  ■  K). 


2.23 


0 

1 

2 

3 

4 


-1  -1 

-1  0  0,333333333 

2  1,5  0,5  0,041666667 


2.24 


M 

—  (2.71  -  1)(2.71  -  2) (2.71  -  3) 


|/(2. 71)  —  P(2.71)|  < 

/<3)  (x)  —1/x  y  (x)  =  —  2/ x1.  Como  / no  se  anula,  M  =  máx{|/(3)  (1)|,  |/^3^(3)|}  =  2. 


|/(2. 71)  —  P(2.71)|  <0.117363 


2.25 


|/(1. 22)  -  P(1.22)|  < 


M 

—  (1.22  -  0.5)(1.22  -  1.1) (1.22  -  1.2)(1.22  -  1.3) 


,  48  (4x4  —  12x2  +  l)  ...  384  (4x5  -  20x3  +  5x) 

/w(*)  =  —  -  9  ,4 — -y /(5)W  =  —  y,  ?  '5 — 

(2x2  +  1)  (2x2  +  1) 

Los  puntos  críticos  en  [0.5, 1.3]  son  x  =  0.513743,  x  =  0.  Entonces  M  —  48  y 

|/(1. 22)  -  P(1.22)|  <  0.00027648 


2.26 


e°-6  _  p (0.6)  |  < 


M 

—  (0.6-0)(0.6-0.5)(0.6-l) 
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y(3)  (x)  =  /<4)  (x)  =  ex.  No  hay  puntos  críticos  y  M  —  e. 

|e0'6  —  P (0.6)  |  <0.0108731 

2.27  Aquí  se  pide  estimar  el  error  al  interpolar  /(0. 71)  =  cos(3  ■  0.71  +  1)  con  P(0.71).  Si  M  es  el  máximo  absoluto 
de  |/  |  en  [0, 1]/  entonces. 


|/(0. 71)  —  P (0.71 )  |  < 

Máximo  absoluto  de  | /  | 

Puntos  críticos:  f^\x)  —0  =>-  81cos(l  +  3x)  =0 


M 

—  (0.71  -  0)  (0.71  -  0.5)  (0.71  -  1) 


(2k  +  1)5  —  1 

x  = - — — - ,  le  Z.  Algunas  soluciones  son 


{...,  -2.95133,  -1.90413,  -0.856932, 0.190265, 1.23746, 2.28466, 3.33186, ...}. 


El  único  punto  crítico  en  el  intervalo  es  x  — 


K  -  1 

2  1 


0.190265... 


'  -  -  1 

Comparación:  M  =  Máx{  \f"  (0)  |,  \f  "  1  2 


1/1/  (1)1)  =27.  Así, 


2.28 


|/(0.25)  —  P(0.25)|  < 


|/(0. 71)  —  P(0.71)|  <0.194575 
M, 


3! 


(0.25  -  0)(0.25  -  l/6)(0.25  -  1/3) 


fW  (x)  =  27sen(l  +  3  x),f^\x)  —  81  eos  (1  +  3x).  Punto  crítico  en  [0,1/3],  x  =  0.190265.  Entonces  M  =  27  y 

|/(0.25)  -  P(0.25)|  <  0.0078125 


2.29  Aplicar  la  fórmula  para  el  error  general  en  interpolación  cúbica  h  —  n¡ 2. 

2.30  Aplicar  la  fórmula  para  el  error  general  en  interpolación  cúbica  con  h  —  0.2 

2.34 

\f(x)-Pn(x)\  <  ^  |  {x*  -  x0)(x*  -aci)---  {x*  -  xn)\  <  ^ 

pues  |  (;c*  —  %i) |  <  (b  —  a)  para  cada  i  —  0,1  ,...,n. 

2.35 

í  S0(x)=0-l/2(x-0)+0(x-0)2  +  3/2(x-0)3  si  xe[0,l], 
i  S1(x)  =  1  +  4(x-1)+9/2(x-1)2-3/2(x-1)3  si  x  E  [1,2]. 


2.36.a 


'  So  W  =  -160  +  1.49061  (x  -  100)  +  0  •  (x  -  100)2  -  0.00002(x  -  100)3 
Si  (x)  =  -35  +  0.76876(x  -  200)  -  0.00721(x  -  200)2  +  0.00002(x  -  200)3 
,  S2(x)  =  -4.2  +  0.10832(x  -  300)  +  0.0006(x  -  300)2  -  3.77272  x  10-6(x  -  300)3 

S3(x)  =9  +  0.117952153(x  - 400)  -  0.0005(x  - 400)2  +  1.28229  x  10-6(x  - 400)3 
S4(x)  =  16.9  +  0.05287(x  -  500)  -  0.0001  (x  -  500)2  +  4.43540  x  10~7(x  -  500)3 


si 

x  6 

[100,200], 

si 

x  6 

[200,300], 

si 

x  e 

[300,400], 

si 

x  e 

[400,500], 

si 

x  E 

[400,500], 
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Figura  5.1  El  polinomio  interpolante  es  la  gráfica  en  roja,  en  azul  está  el  trazador  cúbico. 


Figura  5.2  El  polinomio  interpolante  es  la  gráfica  en  roja,  en  azul  está  el  trazador  cúbico. 


2.36. b  S3(450)  =  13.8079 {cm3/ mol) 

2.36. C 
2.37 

Soluciones  del  Capítulo  3 


Soluciones  del  Capítulo  4 


4.1.a 


lim 

n— yco 


xn+ 1  +  2 

—  lim 

2(xn+2)2-'7 

(*»+  2)1? 

n— >■  oo 

(3x„  +3) 

Así,  si  q  —  1  el  límite  es  0,  si  q  —  2  el  límite  es  1/3  y  si  q  >  2,  el  límite  es  oo. 

4.40  Sie>0yl  —  e>0  entonces  m  —  3(1  —  e)2  y  M  =  6(1  +  e).  Necesitamos  xo  £  [1  —  e,  1  +  e]  y  además  \xo  —  1|  < 
2  m  /  M. 

Como  | Xfl  1 1  <  £  bastaría  con  que  £  <  2 m/M  =>  0  <  £  <  1/3. 
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4.77  El  máximo  de  G(s,t) 

e  ■  M£  <  1  =>  e  +  2e  <  1 

gurada. 


—  s/t2  en  I£  x  Ie  es  M£  = 


(1  +  e) 


si  1  —  e  >  0. 


(l-e)2 

e  <  1/3.  Luego,  si  xq  ^  x'i  están  en  í£:  =]2/3,4/3[,  tendríamos  la  convergencia  ase- 


Soluciones  del  Capítulo  5 


5.12.b  n  > 


Introducción  a  los  Métodos  Muméricos..  Walter  Mora  F. 
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